How to Repeat Macro for all rows with data

[mrmattllewellyn]

Hi All,

Please can you help! I'm new to Macro/VBA I have made the below and I would like to have this repeat on each row that has data in the spreadsheet.

Range("F2").Select
    Selection.Copy
    Windows("Storage bin type calculator -Matt Copy.xlsm").Activate
    Range("C2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("17.11.2021 Matt - Do Not Delete.xlsm").Activate
    Range("G2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Storage bin type calculator -Matt Copy.xlsm").Activate
    Range("C3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("17.11.2021 Matt - Do Not Delete.xlsm").Activate
    Range("H2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Storage bin type calculator -Matt Copy.xlsm").Activate
    Range("C4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("H7").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("17.11.2021 Matt - Do Not Delete.xlsm").Activate
    Range("L2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("Storage bin type calculator -Matt Copy.xlsm").Activate
    Range("P7").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("17.11.2021 Matt - Do Not Delete.xlsm").Activate
    Range("M2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("L3").Select
End Sub

 

[My Aswer Is This]

That code requires guessing the sheets when no sheets have been mentioned. I am aware how to do it when sheet names are known.

Yes I know. I was just showing the original poster a example.
If you have a script that would work for him feel free to post it here.
We are both just trying to help here.

 

[johnnyL]

Agreed!

 

[My Aswer Is This]

Or for a range something like this:

Sub Copy_Without_Selecting()
'Modified 11/30/2021  8:57:44 PM  EST
Workbooks("Book2").Sheets(1).Range("A1:G1").Copy: Workbooks("Book1").Sheets(2).Range("A6").PasteSpecial xlPasteValues
End Sub