My apologies if I do not have this formatted correctly, this is my first time posting.
I have a spreadsheet (attached) that runs a macro to copy a column of data from one page to the next. The criteria used to determine which column to copy is determined by the value in cell C147 (which be updated at a later time). The number of times to repeat the macro is determined by a countif command in cell C124, which counts the number of times the value in cell C147 is in row 122.
Here is the macro that I want to repeat:
Sub Move()
'
' Move Macro
'
' Keyboard Shortcut: Ctrl+Shift+M
'
Sheets("Data").Select
Range("A122").Select
Cells.Find(What:=ActiveSheet.Range("C147"), After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
Range(Selection, Selection.End(xlUp)).Select
Selection.Copy
Sheets("Sort").Select
Range("A3").Select
Selection.End(xlToRight).Select
ActiveCell.Offset(-1, 1).Select
ActiveSheet.Paste
Range("D3").Select
Sheets("Data").Select
Selection.End(xlDown).Select
Selection.End(xlUp).Select
Selection.End(xlDown).Select
Application.CutCopyMode = False
Selection.Cut
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
ActiveCell.Offset(-1, 1).Select
End Sub
Any help would be appreciated.
Thanks.
Bookmarks