Split Worksheet into Several Worksheets

[Latoya]

Good afternoon! I am going to try and make this as simple as possible....

I have a worksheet that has 100 columns... Is there a way to break every 3 columns into a seperate worksheet. For example...

CurrentWorksheet

Column A is blank
Column B contains dates
Column C contains dollar amount
Column D is blank
Column E contains dates
Column F contains dollar amount

Need

Sheet1
Column A is blank
Column B contains dates
Column C contains dollar amount

Sheet2
Column A is blank
Column B contains dates
Column C contains dollar amount

Sheet3
Column A is blank
Column B contains dates
Column C contains dollar amount, etc....

 

[John Davis]

Good afternoon! I am going to try and make this as simple as possible....

I have a worksheet that has 100 columns... Is there a way to break every 3 columns into a seperate worksheet. For example...

CurrentWorksheet

Column A is blank
Column B contains dates
Column C contains dollar amount
Column D is blank
Column E contains dates
Column F contains dollar amount

Need

Sheet1
Column A is blank
Column B contains dates
Column C contains dollar amount

Sheet2
Column A is blank
Column B contains dates
Column C contains dollar amount

Sheet3
Column A is blank
Column B contains dates
Column C contains dollar amount, etc....

Untested:

Sub Latoya()
Dim lr As Long
Dim x As String
Dim no As Long

lr = Cells(Rows.Count, 1).End(xlUp).Row

no = 1

Do While Range("A1:C1") <> ""

x = "NewSheet"

Sheets.Add.Name = x & no

    Range("A1:C" & lr).Cut Sheets(x & no).Range("A" & Rows.Count).End(3)(2)
    Range("A1:C" & lr).Delete shift:=xlToLeft
    
    no = no + 1
    
Loop

End Sub