In this post I am going to show how to create a new sheet for each airplane using vba. The macro copies airplane and model values into each new sheet.

Before:

After:


The Code

Sub Splitdatatosheets()
Dim rng As Range
Dim rng1 As Range
Dim vrb As Boolean
Dim sht As Worksheet
Set rng = Sheets("Sheet1").Range("A4")
Set rng1 = Sheets("Sheet1").Range("A4:D4")
vrb = False
Do While rng <> ""
    For Each sht In Worksheets
        If sht.Name = Left(rng.Value, 31) Then
            sht.Select
            Range("A2").Select
            Do While Selection <> ""
                ActiveCell.Offset(1, 0).Activate
            Loop
            rng1.Copy ActiveCell
            ActiveCell.Offset(1, 0).Activate
            Set rng1 = rng1.Offset(1, 0)
            Set rng = rng.Offset(1, 0)
            vrb = True
        End If
    Next sht
    If vrb = False Then
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Name = Left(rng.Value, 31)
    Sheets("Sheet1").Range("A3:B3").Copy ActiveSheet.Range("A1")
    Range("A2").Select
    Do While Selection <> ""
        ActiveCell.Offset(1, 0).Activate
    Loop
    rng1.Copy ActiveCell
    Set rng1 = rng1.Offset(1, 0)
    Set rng = rng.Offset(1, 0)
    End If
vrb = False
Loop
End Sub

Download excel tutorial file

Remember to enable macros and backup your excel file because you can´t undo macros.

Split-data-across-multiple-sheets.xls
(Excel 97-2003  Workbook *.xls)