Hello, I have some code that I found to 'cut & paste' a row of data from Sheet1 to Sheet2 which works great. The problem is, how do I get the code to append the data row by row? It will just replace the data right now. Any help is greatly appreciated.


Sub MoveActiveRow()

  Application.ScreenUpdating = False
     
    Dim strSheetName, strCellAddress As String
    strSheetName = ActiveSheet.Name
    strCellAddress = ActiveCell.Address(False, False)
     
    Rows(ActiveCell.Row).Cut
    Sheets("Historical Record").Select 'Change sheet name to whatever consolidated tab name is.
    Range("A" & Range("A65536").End(xlUp).Row).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
     
    Range("A" & ActiveCell.Row).Select
     
    Sheets(strSheetName).Select
    Range(strCellAddress).Select
     
    Rows(ActiveCell.Row).Delete
     
    Application.ScreenUpdating = True
End Sub