User clicks a button to add a new vehicle. This macro is suppose to
copy all of the data in sheet "Vehicle template", then create a new
sheet and paste to that sheet.Then it opens up a UserForm.
Later I want to figure out how to have it name the new sheet based on
data in one of the sheets. But 1st, I want this part to work.

It creates a new sheet ok, but it only pastes the contents of cell A1.
Can anyone see why the entire sheet does not paste to the new sheet?

Thanks
jeff

Sub NewSheet()

Sheets("Vehicle template").Select
ActiveCell.Cells.Select
Selection.Copy
Sheets.Add
ActiveSheet.Paste

UserForm1.TextBox1.SetFocus
UserForm1.Show
End Sub