read and copy line from master tab to newly created tab

[Danny54]

I'm trying to take a master tab,
1. read column A,
2. create a tab in that workbook with the name found in column a,
3. then copy that one line from the master into the newly created tab.

I have the code (below) that cycles thru column A and creates the tabs but having issue with copying the first line into the newly created workbook. Any suggestions?

Thanks

Sub NewSheets()
Dim rng As Range
Dim cell As Range
Dim wb As Workbook
Dim ws As Worksheet
On Error GoTo Errorhandling
Set rng = Application.InputBox(Prompt:="Select cell range:", _
Title:="Create sheets", _
Default:=Selection.Address, Type:=8)
'Iterate through cells in selected cell range
For Each cell In rng
    'Check if cell is not empty
    If cell <> "" Then
        'Insert worksheet and name the worksheet based on cell value
        Sheets.Add.Name = cell 
    End If
'Continue with next cell in cell range
Next cell
'Go here if an error occurs
Errorhandling:
'Stop macro
End Sub

'code to move only the line from master tab where we got the name of the tab to newly created tab

' Master Tab
'A B C
'A01 Cars Red
'B01 Trucks Blue
'C01 Boats White

' New tabs
' A01 <-tabname
'A B C
'A01 Cars Red
' B01 <-tabname
'A B C
'B01 Trucks Blue
' C01 <-tabname
'A B C
'C01 Boats White

 

[Fluff]

How about

    If cell <> "" Then
        'Insert worksheet and name the worksheet based on cell value
        Sheets.Add.Name = cell
        cell.EntireRow.Copy ActiveSheet.Range("A1")
    End If

 

[Danny54]

Thanks so much Fluff.
That worked fantastically. What if i wanted to copy the first line and then the line the row was read from?
I tried this but no luck

ThisWorkbook.Sheets(Master).Range("A1").EntireRow.Copy ActiveSheet.Range("A1")
cell.EntireRow.Copy ActiveSheet.Range("A2") '<-- this was your line

 

[Fluff]

That should work. In what way didn't it work?

 

[Danny54]

the Errorhandling is envoked on that line. As far as I can tell, in the Locals (Master) is defined as Empty

 

[Fluff]

If Master is the name of the sheet it should be wrapped in quotes.

 

[Danny54]

I overlooked the quotes.

Thanks for your help.. Have a Great Day!

 

[Fluff]

You're welcome & thanks for the feedback.