hi John,
The macro is not workin like it suppose to. it couldnt combine all the data of the worksheets in OVERALL. anyhow here is currently the macro that i am using but this macro is only copying specific worksheets (RAW to RAW6). anyway to go around this. i need the macro to copy all the worksheets except for worksheet "DateTime", "VLOOKUP", "RDBMergeSheet" and the data to combine in worksheet "RDBMergeSheet".
Sub CombineWorksheets()
Sheets("RDBMergeSheet").Select
Cells.Select
Selection.ClearContents
Sheets("RAW").Select
Range("C1:H1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("RDBMergeSheet").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
NextRow = Range("A65536").End(xlUp).Row + 1
Range("A" & NextRow).Select
Sheets("RAW (2)").Select
Range("C1:H1").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("RDBMergeSheet").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
NextRow = Range("A65536").End(xlUp).Row + 1
Range("A" & NextRow).Select
Sheets("RAW (3)").Select
Range("C1:H1").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("RDBMergeSheet").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
NextRow = Range("A65536").End(xlUp).Row + 1
Range("A" & NextRow).Select
Sheets("RAW (4)").Select
Range("C1:H1").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("RDBMergeSheet").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
NextRow = Range("A65536").End(xlUp).Row + 1
Range("A" & NextRow).Select
Sheets("RAW (5)").Select
Range("C1:H1").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("RDBMergeSheet").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
NextRow = Range("A65536").End(xlUp).Row + 1
Range("A" & NextRow).Select
Sheets("RAW (6)").Select
Range("C1:H1").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("RDBMergeSheet").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
NextRow = Range("A65536").End(xlUp).Row + 1
Range("A" & NextRow).Select
End Sub