Hi Guys,
I currently have a macro that copies a single row of raw data from the clipboard into PasteSpecial sheet, Email Extract sheet then reorders/formats the data which then copies the reordered data into the DataChecker sheet.
the number of rows in the raw data has increased exponentially, is there any way the current macro could be modified so multiple rows can be done at once. please see the code below:
Sub DATM()
'
' DATM Macro
'
' Keyboard Shortcut: Ctrl+d
'
Range("A2").Select
ActiveSheet.PasteSpecial
Sheets("Email Extract").Select
Range("Table1").Select
Selection.Copy
Sheets("Data Checker").Select
Cells(Range("A1000000").End(xlUp).Row + 1, 1).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Paste MailTable").Select
Range("A4").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "Record updated"
End Sub
Many thanks in advance.
I currently have a macro that copies a single row of raw data from the clipboard into PasteSpecial sheet, Email Extract sheet then reorders/formats the data which then copies the reordered data into the DataChecker sheet.
the number of rows in the raw data has increased exponentially, is there any way the current macro could be modified so multiple rows can be done at once. please see the code below:
Sub DATM()
'
' DATM Macro
'
' Keyboard Shortcut: Ctrl+d
'
Range("A2").Select
ActiveSheet.PasteSpecial
Sheets("Email Extract").Select
Range("Table1").Select
Selection.Copy
Sheets("Data Checker").Select
Cells(Range("A1000000").End(xlUp).Row + 1, 1).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Paste MailTable").Select
Range("A4").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "Record updated"
End Sub
Many thanks in advance.