Need help with a macro

[zinger711]

I am trying to get my macro to work - and I can't seem to figure out what is wrong. The steps I want it to perform are to duplicate the GL Activity sheet; rename it as the CC integer; then delete the rows which are not the CC integer in the new GL tabs. I know the delete function is the problem - I just don't know what to do. Any help would be appreciated.

Dim i As Integer
Dim j As Integer
Dim Count_CC As Integer
Dim Count_GL As Integer

Count_GL = Worksheets("GL Activity").UsedRange.Rows.Count

Count_CC = Worksheets("cc list").UsedRange.Rows.Count


For i = 1 To Count_CC
Worksheets("GL Activity").Copy after:=Sheets(Worksheets.Count)
ActiveSheet.Name = Worksheets("cc list").Cells(i, 1).Value

For j = 1 To Count_GL
If ActiveSheet.Cells(j, 4).Value <> i Then
ActiveSheet.Cells(j, 4).EntireRow.Delete = True
Else
End If
Next j

Next i

End Sub