Macro Help
 

Greg,

Thanks for all your help! You were very close in nailing it on th
head. I had to add one statement "ActiveCell.Offset(1, 0).Select" afte
the copy statement because it just kept overwriting the previous paste
I also added a few other things as well. This is what I ended up doing


Sub Electrical()

HomeSheet = ActiveSheet.Name

'Insert Electrical Sheet
Sheets.Add.Name = "ELECTRICAL"
Sheets(HomeSheet).Select

'Go to Electrical sheet and prepare it to receive the coping
Sheets("Electrical").Select
Range("A1").Select

'Go back to the original sheet
Sheets(HomeSheet).Select

'Seperate Electrical Tags
Range("I1").Select
While Not ActiveCell = ""
If ActiveCell = "E" Then
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 7)).Copy
Sheets("Electrical").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Offset(1, 0).Select
Sheets(HomeSheet).Select
End If
ActiveCell.Offset(1, 0).Select
Wend

'Copy Electrical Tags to Clipboard
Sheets("Electrical").Select
Columns("A:A").EntireColumn.AutoFit
Columns("F:F").EntireColumn.AutoFit
Columns("G:G").EntireColumn.AutoFit
Cells.Select
Application.CutCopyMode = False
Selection.Copy
End Sub

Scot

--

-----------------------------------------------------------------------
's Profile: http://www.excelforum.com/member.php...fo&userid=1627
View this thread: http://www.excelforum.com/showthread.php?threadid=27684