Sub mm() M = Cells(2, 7) N = Cells(2, 15) For i = 1 To N For J = 1 To M Cells(J + 3, i) = "'*" Next J Next i End Sub