Autofill Numbers in Sequence, increments of 30 over multiple columns

[Plukey]

I have a few VBA's that accomplish the task on a single column. But what Id like to do, is enter a start number and consecutively autofill 270 times across 9 columns in increments of 30.
These Serial Numbers get used quickly, If I could run a Vba that ask for a start # and autofill it would save some time.

Ex.
1 6 11
2 7 12
3 8 13
4 9 14
5 10 15
etc...….

Sub AddSerialNum1()
Dim i As Integer
On Error GoTo Last
i = InputBox("Enter Value", "Enter Serial Numbers")
For i = 1 To i
ActiveCell.Value = i
ActiveCell.Offset(1, 0).Activate
Next i
Last:
Exit Sub
End Sub

or

Sub AddSerialNum2()
Dim i As Long, J As Long
Application.ScreenUpdating = 0

i = Application.InputBox(Prompt:="Start", Type:=1)
J = Application.InputBox(Prompt:="end", Type:=1)
With Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Offset(1)
        .Value = i
        .AutoFill .Resize(J, 1), xlFillSeries
    End With
    Application.ScreenUpdating = 1


End Sub

 

[Rick Rothstein]

that's great ! but what I if choose specific columns (A,C,F,L,M) how should be ?

Those columns would not really qualify as "all columns" now, would it? Any way, try this...

Sub RemoveRowMatchingNumbers()
  Dim Rng As Range
  For Each Rng In Range("A1,C1,F1,L1,M1")
    Rng.Resize(30).Value = [ROW(1:30)]
  Next
End Sub

 

[KalilMe]

wow ! exactly this is what I want
many thanks master