I haven't used VBA macros for over 10 years and I need help with how I loop through the code I have recorded
This is the code I need to increase B1 by 1 every time in the namelookup sheet
then paste the values from Neighbourfinder into Sheet 1 10 times
Any tips or suggestions would be greatly appreciated
Sub Macro10()
'
Sheets("namelookup").Select
Range("B1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Neighbour Finder").Select
Range("C7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C7:E7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet1").Select
Range("A1:D10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1:C1").Select
Application.CutCopyMode = False
Selection.Copy
Range("A2:C10").Select
Range("C10").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Neighbour Finder").Select
Range("B12:E21").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet1").Select
Range("D1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("namelookup").Select
Range("B2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Neighbour Finder").Select
Range("C7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C7:E7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet1").Select
Range("A11:C20").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Neighbour Finder").Select
Range("B12:E21").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet1").Select
Range("D11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Neighbour Finder").Select
Sheets("namelookup").Select
Range("B3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Neighbour Finder").Select
Range("C7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C7:E7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet1").Select
Range("A21:C30").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Neighbour Finder").Select
Range("B12:E21").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet1").Select
Range("D21").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Neighbour Finder").Select
End Sub
Bookmarks