Find last row of data in column A on a specific sheet, and after that copy data down to that row on another sheet.

[exPERten]

I am almost there I think.
But this seems to search for data in all columns on the first sheet. I only want to check column A on Sheet 1.

Sub FindLastRow()
Dim LastRow As Long
With Sheets("Sheet 1")
If WorksheetFunction.CountA(.Cells) > 0 Then
'Search for any entry, by searching backwards by Rows.
LastRow = .Cells.Find(What:="*", After:=[A1], _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
End If
Range("B16:AS" & LastRow).FillDown
End With
End Sub

 

[Fluff]

How about

Sub FindLastRow()
Dim LastRow As Long
With Sheets("Sheet 1")
If WorksheetFunction.CountA(.Range("A:A")) > 0 Then
'Search for any entry, by searching backwards by Rows.
LastRow = .Range("A:A").Find(What:="*", After:=[A1], _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
End If
Range("B16:AS" & LastRow).FillDown
End With
End Sub

 

[exPERten]

Thanks alot, that did the trick.

 

[Fluff]

You're welcome & thanks for the feedback.