I need to copy all value and ranges but it is picking up all text but nothing if it is a number of date

Can someone show me how to fix

Sub MoveWorkSchedule_to_WorkSchedule()
    Const FILEPATH = "G:\f\OPERATIONS\"
    Const FILENAME = "Works Project Scheduled Installs.xlsm"
    Const SheetName = "Work Schedule"
    Dim wbMaster As Workbook, newBook As Workbook
    Dim sht As Worksheet
    Dim fname As String
     
    Application.ScreenUpdating = False
    
    Set wbMaster = ThisWorkbook
    Set sht = Worksheets("Works Schedule")
    

    If Application.WorksheetFunction.CountA(sht.Range("$A:$B")) > 5 Then
       Application.DisplayAlerts = False
       Set newBook = Workbooks.Open(FILEPATH & FILENAME, True, False)
       lastrow = Cells(Rows.Count, "A").End(xlUp).Row + 3
       wbMaster.Activate
              
       Worksheets(sht.Name).Range(Cells(2, 1), Cells(2, 1).End(xlDown)).Resize(, 72).Copy
       newBook.Worksheets(SheetName).Range("A" & lastrow).PasteSpecial xlPasteAll
       
       Application.CutCopyMode = False
    
    End If
    
    newBook.Close SaveChanges:=True
    
    Set wbMaster = Nothing
    
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True

End Sub