Hi - I'm very new to VBA and am trying to create a macro to extract data from one spreadsheet with 6 tabs and insert it into another spreadsheet with 6 tabs but the data doesn't always populate in the correct tab. I was using the record function to create the macro because I'm not fluent yet in VBA.....any help would be greatly appreciated!
Sub Macro21()
'
' Macro21 Macro
'
'
Cells.Select
Sheets("RFIData").Select
Selection.ClearContents
Range("E38").Select
Windows("Procore Test Data 1.xlsx").Activate
Cells.Select
Selection.Copy
Windows("4608 Monthly Staff Report Test Rev3.xlsm").Activate
Range("A1").Select
ActiveSheet.Paste
Range("C23").Select
Sheets("SubmittalData").Select
Cells.Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A1").Select
Windows("Procore Test Data 1.xlsx").Activate
Range("C28").Select
Sheets("Submittals").Select
Cells.Select
Selection.Copy
Windows("4608 Monthly Staff Report Test Rev3.xlsm").Activate
ActiveSheet.Paste
Range("C22").Select
Sheets("ObservationData").Select
Cells.Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A1").Select
Windows("Procore Test Data 1.xlsx").Activate
Range("C24").Select
Sheets("Observations").Select
Cells.Select
Range("A55").Activate
Selection.Copy
Windows("4608 Monthly Staff Report Test Rev3.xlsm").Activate
ActiveSheet.Paste
Range("C11").Select
Sheets("PunchListData").Select
Cells.Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A1").Select
Windows("Procore Test Data 1.xlsx").Activate
Range("C89").Select
Sheets("PunchList").Select
Range("A1").Select
Selection.Copy
Cells.Select
Range("A559").Activate
Application.CutCopyMode = False
Selection.Copy
Windows("4608 Monthly Staff Report Test Rev3.xlsm").Activate
ActiveSheet.Paste
Range("D24").Select
Sheets("ManpowerData").Select
Cells.Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A1").Select
Windows("Procore Test Data 1.xlsx").Activate
Range("D588").Select
Sheets("ManpowerLog").Select
Cells.Select
Range("A16").Activate
Selection.Copy
Windows("4608 Monthly Staff Report Test Rev3.xlsm").Activate
ActiveSheet.Paste
Range("K45").Select
Sheets("InspectionData").Select
Cells.Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A1").Select
Windows("Procore Test Data 1.xlsx").Activate
Range("E38").Select
Sheets("InspectionItemDetails").Select
Cells.Select
Selection.Copy
Windows("4608 Monthly Staff Report Test Rev3.xlsm").Activate
ActiveSheet.Paste
Range("D25").Select
End Sub
Sub Macro21()
'
' Macro21 Macro
'
'
Cells.Select
Sheets("RFIData").Select
Selection.ClearContents
Range("E38").Select
Windows("Procore Test Data 1.xlsx").Activate
Cells.Select
Selection.Copy
Windows("4608 Monthly Staff Report Test Rev3.xlsm").Activate
Range("A1").Select
ActiveSheet.Paste
Range("C23").Select
Sheets("SubmittalData").Select
Cells.Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A1").Select
Windows("Procore Test Data 1.xlsx").Activate
Range("C28").Select
Sheets("Submittals").Select
Cells.Select
Selection.Copy
Windows("4608 Monthly Staff Report Test Rev3.xlsm").Activate
ActiveSheet.Paste
Range("C22").Select
Sheets("ObservationData").Select
Cells.Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A1").Select
Windows("Procore Test Data 1.xlsx").Activate
Range("C24").Select
Sheets("Observations").Select
Cells.Select
Range("A55").Activate
Selection.Copy
Windows("4608 Monthly Staff Report Test Rev3.xlsm").Activate
ActiveSheet.Paste
Range("C11").Select
Sheets("PunchListData").Select
Cells.Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A1").Select
Windows("Procore Test Data 1.xlsx").Activate
Range("C89").Select
Sheets("PunchList").Select
Range("A1").Select
Selection.Copy
Cells.Select
Range("A559").Activate
Application.CutCopyMode = False
Selection.Copy
Windows("4608 Monthly Staff Report Test Rev3.xlsm").Activate
ActiveSheet.Paste
Range("D24").Select
Sheets("ManpowerData").Select
Cells.Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A1").Select
Windows("Procore Test Data 1.xlsx").Activate
Range("D588").Select
Sheets("ManpowerLog").Select
Cells.Select
Range("A16").Activate
Selection.Copy
Windows("4608 Monthly Staff Report Test Rev3.xlsm").Activate
ActiveSheet.Paste
Range("K45").Select
Sheets("InspectionData").Select
Cells.Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A1").Select
Windows("Procore Test Data 1.xlsx").Activate
Range("E38").Select
Sheets("InspectionItemDetails").Select
Cells.Select
Selection.Copy
Windows("4608 Monthly Staff Report Test Rev3.xlsm").Activate
ActiveSheet.Paste
Range("D25").Select
End Sub