I'm having trouble making this work, Does anyone know why it's not calling the variable?
Dim rngCells1 As Range
Set rngCells1 = Range("A3:A13")
Rows("3:13").Select
Selection.Insert Shift:=xlDown
Range("A2").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
rngCells1.Select <--
ActiveSheet.Paste
Dim rngCells1 As Range
Set rngCells1 = Range("A3:A13")
Rows("3:13").Select
Selection.Insert Shift:=xlDown
Range("A2").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
rngCells1.Select <--
ActiveSheet.Paste