Copy data in one worksheet to another VBA

Option Explicit

Public sheet1, sheet2 'this makes these SHEETS available to all code in this worksheet
Public rowcountStorageLocation

'#######################################

Private Sub Workbook_Open()
Call Initialize
End Sub

'#######################################

Sub Initialize()
sheet1 = "Sheet1"
sheet2 = "Sheet2"
rowcountStorageLocation = "A1"

'#######################################

ThisWorkbook.Worksheets(sheet1).Select
If Worksheets(sheet1).Range(rowcountStorageLocation).Value = "" Then
    Worksheets(sheet1).Range(rowcountStorageLocation).Value = 0
End If
Call updatecounts
End Sub

'#######################################

Sub updatecounts(Optional recount As Boolean)
Dim rowssheet1, rowssheet2

If recount = True Then
ThisWorkbook.Worksheets(sheet2).Select
rowssheet2 = Cells(ThisWorkbook.Worksheets(sheet2).Rows.Count, 1).End(xlUp).Row
Worksheets(sheet2).Range(rowcountStorageLocation).Value = rowssheet2 - 1
Exit Sub
End If

ThisWorkbook.Worksheets(sheet2).Select
rowssheet2 = Cells(ThisWorkbook.Worksheets(sheet2).Rows.Count, 1).End(xlUp).Row
Worksheets(sheet2).Range(rowcountStorageLocation).Value = rowssheet2 - 1

ThisWorkbook.Worksheets(sheet1).Select
rowssheet1 = Cells(ThisWorkbook.Worksheets(sheet1).Rows.Count, 1).End(xlUp).Row
Worksheets(sheet1).Range(rowcountStorageLocation).Value = rowssheet1 - 1
End Sub

'########################################

Sub transferData()
'######################DEPLOYMENT CONSIDERATIONS#################################################
'#after pasting this code, you need to go into the Developer tab, and press the MACROS button.  #
'#Select this Subroutine in the MACRO WINDOW, and place a SHORTCUT key to whatever you see fit. #
'# SEE EXAMPLE PICTURES POSTED ON FORUM                                                         #
'################################################################################################

Dim sheet1rows, sheet2rows
Dim rowsCnt1, rowsCnt2
Dim StartRow, endingrow
Dim pasteTime

sheet1 = "Sheet1"
sheet2 = "Sheet2"
rowcountStorageLocation = "A1"

'get the number of lines for each sheet
sheet1rows = Worksheets(sheet1).Range(rowcountStorageLocation).Value

'we need to start the new count from the values above, after we count the lines again
ThisWorkbook.Worksheets(sheet1).Select
rowsCnt1 = Cells(ThisWorkbook.Worksheets(sheet1).Rows.Count, 1).End(xlUp).Row - 1

    If rowsCnt1 <> sheet1rows Then
            MsgBox ("Will Move Data at This Time.")
            ThisWorkbook.Worksheets(sheet2).Select
            sheet2rows = Cells(ThisWorkbook.Worksheets(sheet2).Rows.Count, 1).End(xlUp).Row + 1
                  
                endingrow = rowsCnt1 - sheet1rows
                For StartRow = sheet1rows + 1 To sheet1rows + endingrow
                ThisWorkbook.Worksheets(sheet1).Select
                    ActiveSheet.Range("A" & StartRow + 1).EntireRow.Copy
                    ThisWorkbook.Worksheets(sheet2).Select
                            ActiveSheet.Paste Destination:=ThisWorkbook.Worksheets(sheet2).Range("A" & sheet2rows & ":" & "A" & sheet2rows + 5)
                            updatecounts (True)
                            sheet2rows = Worksheets(sheet2).Range(rowcountStorageLocation).Value + 1
                   ThisWorkbook.Worksheets(sheet1).Select
                Next
            ThisWorkbook.Worksheets(sheet1).Range("A1").Select
            Call updatecounts
    Else
            MsgBox ("No New Entry was Found.")
    End If
End Sub

'########################################