Hi Guys,
I currently have a macro that copies a single row of raw data from the clipboard into the PasteSpecial sheet, the Email Extract sheet then reorders/formats the data and 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:
Code
- 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.