Hi Everyone so I have this code that copies everything including the previous data, what I wanted to do is just copy what was added to the previous or existing data.
Sub upload_data_fix()
Dim WScopy As Worksheet
Dim WSdest As Worksheet
Dim desWB As Workbook
Dim FileToOpen As Variant
Dim cRow As Long
Dim Stat As Range
Set desWB = ThisWorkbook
Set WSdest = desWB.Sheets("SHT1")
Application.ScreenUpdating = False
FileToOpen = Application.GetOpenFilename(Title:="Browse for your file & Import Range", FileFilter:="Excel Files (.xls),*xls*")
If FileToOpen = False Then Exit Sub
Set OpenBook = Application.Workbooks.Open(FileToOpen)
With Sheets(26)
cRow = .Cells(Rows.Count, "A").End(xlUp).Row
.Range("A8:AA" & cRow).Copy
WSdest.Cells(WSdest.Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValuesAndNumberFormats
End With
End sub
Sub upload_data_fix()
Dim WScopy As Worksheet
Dim WSdest As Worksheet
Dim desWB As Workbook
Dim FileToOpen As Variant
Dim cRow As Long
Dim Stat As Range
Set desWB = ThisWorkbook
Set WSdest = desWB.Sheets("SHT1")
Application.ScreenUpdating = False
FileToOpen = Application.GetOpenFilename(Title:="Browse for your file & Import Range", FileFilter:="Excel Files (.xls),*xls*")
If FileToOpen = False Then Exit Sub
Set OpenBook = Application.Workbooks.Open(FileToOpen)
With Sheets(26)
cRow = .Cells(Rows.Count, "A").End(xlUp).Row
.Range("A8:AA" & cRow).Copy
WSdest.Cells(WSdest.Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValuesAndNumberFormats
End With
End sub