You have your End With in the wrong place:

Next myB4
Next myB2
End With

should be

End With
Next myB4
Next myB2


Bernie


"Oligo" wrote in message
...
u mean just add the code into the current code or onto the new sheet??

i got a with without for error.

Sub MakeATable()
Dim myB2Arr As Range
Dim myB4Arr As Range
Dim myB2 As Range
Dim myB4 As Range
Dim myR As Long

Set myB2Arr = Worksheets("Main Data").Range("A3:A4")
Set myB4Arr = Worksheets("Main Data").Range("A3:A4")

For Each myB2 In myB2Arr
For Each myB4 In myB4Arr

Range("B2").Value = myB2.Value
Range("B4").Value = myB4.Value

Application.CalculateFull

With Worksheets("aa")
myR = Cells(Rows.Count, 1).End(xlUp)(2).Row
Cells(myR, 1).Value = myB2.Value
Cells(myR, 2).Value = myB4.Value
Range("G9:G11").Copy
Cells(myR, 3).PasteSpecial xlValues, Transpose:=True
Next myB4
Next myB2
End With
End Sub