VBA to create and prepopulate worksheets

[epasra]

I have a workbook with one worksheet that contains about 200 records. I would like to create a macro that creates a separate worksheet for each individual record, name the worksheet by the value in the A column, and insert the data in columns B-E in the first row of each new worksheet.

Any ideas how to do this? Any help will be greatly appreciated!

 

[epasra]

I would really appreciate any help you can throw my way.

Again, I have 200 records of data. I would like to automate the process of creating a new worksheet for each record, naming the worksheet the value in the A column, and inserting the value of the cells in B and beyond in the first row of each sheet.

 

[daverunt]

This assumes the detail is in sheet1 - Name in A and the copied range is B to E of the row
Pasted in B1 of the added sheet.

Sub AddRecords()
Dim Rng As Range
Dim Dn As Range
Sheets("Sheet1").Activate
Set Rng = Sheets("Sheet1").Range(Range("A1"), Range("A" & Rows.Count).End(xlUp))
 
For Each Dn In Rng
Sheets("Sheet1").Activate
RowNum = Dn.Row
Range("B" & RowNum & ":E" & RowNum).Copy
Sheets.Add.Name = Dn.value
ActiveSheet.Range("B1").PasteSpecial
 
Next
End Sub