Adding Variable to column

[pushpm]

Sub Range_End_Method()


'Finds the last non-blank cell in a single row or column


Dim lRow As Long
Dim lCol As Long

'Find the last non-blank cell in column A(1)
lRow = Cells(Rows.Count, 1).End(xlUp).Row

'Find the last non-blank cell in row 1
' lCol = Cells(1, Columns.Count).End(xlToLeft).Column

' MsgBox "Last Row: " & lRow & vbNewLine
' & _


' "Last Column: " & lCol


Range("A2:AF&icol").Select
Selection.Copy
Sheets("Upload Dollars and Hours (2)").Select
Range("J4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll ToRight:=15

End Sub

[pushpm]

Range("A2:AF&irow").Select
I need help on understanding how to add my Variable to column AF

[pushpm]

Sub Range_End_Method()
'Finds the last non-blank cell in a single row or column


Dim LastRow As Long

'Find the last non-blank cell in column A(1)
LastRow = Cells(Rows.Count, 1).End(xlUp).Row

MsgBox "Last Row: " & LastRow & vbNewLine


Range("A2:AF" & LastRow).Select

End Sub

I get message that my last non blank row is 46900 but it does not give me selection of A2::A46900. Instead i get error # 400

Please help me.

[Micron]

cross posted with answers
https://www.mrexcel.com/forum/excel-...ariable+column