This should do for you. This doesnt set up a header or make any cell width changes it purely copies the data. I assumed that you needed only columns A through CH copied. If this is incorrect you can adjust it in code. Also i assumed that you had data in column A. If not then we are going to have to edit the code. If you want help getting the macro to make the worksheet look better attach a copy of your workbook and I can get it going for you. Here is code.
Option Explicit
Sub Qudrant2()
Dim lastrow As Long, icell As Long
lastrow = Sheets("Data").Range("CH" & Rows.Count).End(xlUp).Row
'loop
For icell = 1 To lastrow
If Sheets("Data").Range("CH" & icell).Value = "Quadrant2" Then
'Copies column A through column CH ----adjust if necessary
Sheets("Data").Range("A" & icell, "CH" & icell).Copy
'assumes that there is data in column A on sheet "Data"
Sheets("Quadrant2").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial xlPasteAll
Else
End If
Next icell
End Sub
Let me know.
Bookmarks