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
Bookmarks