Excel to Copy Last row data till row Number 5000

[Chandresh]

HI All,

Could you all please help me with a macro that can copy the last used row data till row number 5000.

Ex:
My last used row if row number 5 (row changes based on data)
I need a help in macro which can copy the data from row number 5 and paste it till row number 5000.

Thanks
Chan

 

[MARK858]

Maybe (although I would restrict the number of columns)...

Sub Chandress()
Dim lr As Long

Application.ScreenUpdating = False
lr = ActiveSheet.Cells.Find("*", , xlValues, , xlByRows, xlPrevious).Row
Rows(lr + 1 & ":" & 5000).Value = Rows(lr).Value
Application.ScreenUpdating = True
End Sub

 

[Chandresh]

Thank you very much for your help

 

[MARK858]

You're welcome