Forum Discussion
Solved
Count rows, end up will not work with only one row
I'm using the below code to find the last row, then autofill column A. LR = Cells(Rows.Count, 4).End(xlUp).Row Range("A2").AutoFill Destination:=Range("A2:A" & LR) It works unless there is o...
For example:
LR = Cells(Rows.Count, 4).End(xlUp).Row If LR <> 2 Then Range("A2").AutoFill Destination:=Range("A2:A" & LR) End If
For example:
LR = Cells(Rows.Count, 4).End(xlUp).Row
If LR <> 2 Then
Range("A2").AutoFill Destination:=Range("A2:A" & LR)
End If- Thanks Hand! This worked perfectly.
