Sub NestedFor() Dim I As Integer Dim J As Integer For I = 1 To 10 For J = 4 To 7 Cells(I, Chr(J + 64)).Value = I * J Next J Next I End Sub