Hi Excel gurus:
I am trying to create a VBA codes in excel using below codes but I ran into error:
This is what I intended to do:
1. Copy data from Sheet A (specific to 3 columns only) to Summary sheet
2. Copy data from Sheet B (specific to 3 columns only) to Summary sheet
3. Arrange the copied data in summary tab and delete duplicate data
Sub CombineData()
'CopyPasteSage
'Sheets("Sage_Pivot").Select
Range("A5:C5").Select
Range("A5:C5").Activate
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
'Sheets("Top Sheet").Select
Range("A24:C24").Select
Range("A24:C24").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'CopyPasteAccrual
'Sheets("PCard Accrual_Pivot").Select
Range("K5").Select
Range("K5").Activate
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
'Sheets("Top Sheet").Select
Range("A24").End(xlDown).Offset(1, 0).Select
Range("A24").Offset(-1, 6).Copy Destination:=Range("A24").Offset(-1, 1)
'Sheets("PCard Accrual_Pivot").Select
Range("M5:N5").Select
Range("M5:N5").Activate
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
'Sheets("Top Sheet").Select
Range("B4:C24").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A24").End(xlDown).Offset(1, 0).Select
'Sheets("Top Sheet").Select
Range("A24", Range("A24").End(xlDown)).Rows.RemoveDuplicates Columns:=1, Header:=xlYes
Dim Table As PivotCache
For Each Table In ThisWorkbook.PivotCaches
Table.Refresh
Next Table
End Sub
I am trying to create a VBA codes in excel using below codes but I ran into error:
This is what I intended to do:
1. Copy data from Sheet A (specific to 3 columns only) to Summary sheet
2. Copy data from Sheet B (specific to 3 columns only) to Summary sheet
3. Arrange the copied data in summary tab and delete duplicate data
Sub CombineData()
'CopyPasteSage
'Sheets("Sage_Pivot").Select
Range("A5:C5").Select
Range("A5:C5").Activate
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
'Sheets("Top Sheet").Select
Range("A24:C24").Select
Range("A24:C24").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'CopyPasteAccrual
'Sheets("PCard Accrual_Pivot").Select
Range("K5").Select
Range("K5").Activate
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
'Sheets("Top Sheet").Select
Range("A24").End(xlDown).Offset(1, 0).Select
Range("A24").Offset(-1, 6).Copy Destination:=Range("A24").Offset(-1, 1)
'Sheets("PCard Accrual_Pivot").Select
Range("M5:N5").Select
Range("M5:N5").Activate
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
'Sheets("Top Sheet").Select
Range("B4:C24").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A24").End(xlDown).Offset(1, 0).Select
'Sheets("Top Sheet").Select
Range("A24", Range("A24").End(xlDown)).Rows.RemoveDuplicates Columns:=1, Header:=xlYes
Dim Table As PivotCache
For Each Table In ThisWorkbook.PivotCaches
Table.Refresh
Next Table
End Sub