Repeating macro for each cell in A (with offset)

[anonymouslurker]

Hi everyone! Right now I'm having troubles with how to repeat my macro for each cell in A. I have some offsets so it becomes very confusing.

Here is my code. I recorded the macro while ticking 'Use Relative References' on.

Hopefully someone can help me. Thank you very much in advance

Sub MacroTest()
'
' MacroTest Macro
'
'
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveCell.Offset(1, 8).Range("A1:A83").Select
Selection.Copy
ActiveWindow.ScrollRow = 1
ActiveCell.Offset(-1, -2).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
ActiveCell.Offset(1, -6).Range("A1:F1").Select
Application.CutCopyMode = False
Selection.Copy
ActiveCell.Offset(-1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("A1:J83").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp

End Sub

 

[anonymouslurker]

No I don't

 

[Fluff]

In that case when you get the error, click debug what line is highlighted?

 

[anonymouslurker]

Hmm I don't see anything, it's just Type mismatch, OK, Help, that's it...?

 

[Fluff]

In that case you will need to step through the code.
Place the cursor anywhere in the code & keep pressing F8 until you get the error

 

[anonymouslurker]

Thanks! I used Step Into under Debug and these below went yellow the first three times I do it, in order:

Sub anonymouslurker()
Ary = Sheets("Sheet2").Range("A1").CurrentRegion.Value2
ReDim Nary(1 To UBound(Ary), 1 To UBound(Ary, 2) + 80)

Then when I tried to Step Into a fourth time, it displays the error.

 

[Fluff]

Is sheet2 the sheet with your data?

 

[anonymouslurker]

Just realised I put Sheet2 for both! Thank you so much, it worked!!

 

[Fluff]

You're welcome & thanks for the feedback