Copy Range to the last row

[excelrxk]

I have several sheets in my workbook that I want to copy a range of data from H5:J(lastrow). Can someone help on my code below. The intention is to run the macro on the activesheet.

Sub CopyData()
Dim a As Integer
    a = ActiveSheet.Range("H5" & Rows.Count).End(xlUp).Row
    ActiveSheet.Range("H5:J" & a).Copy
    ActiveSheet.Range("A5").PasteSpecial xlPasteValues
End Sub

Thank you.

 

[MARK858]

Maybe (test on a copy of your data)...

Sub CopyData()
Dim a As Long
    a = ActiveSheet.Range("H" & Rows.Count).End(xlUp).Row
    ActiveSheet.Range("H5:J" & a).Copy
    ActiveSheet.Range("A" & a + 1).PasteSpecial xlPasteValues
    Application.CutCopyMode = False
End Sub

 

[excelrxk]

Thank you @MARK858

 

[MARK858]

Happy it helped and if no-one else has said it welcome to the board.