Copying rows to another worksheet

solidgold10287

Maybe something like this would get you started.

Sub aaa()

Dim lRow As Long, lLastRow As Long
Dim wsSht1 As Worksheet, wsSht2 As Worksheet

wsSht1 = Sheets("Sheet1") 'Raw Data
wsSht2 = Sheets("Sheet2") 'Filtered Data

lLastRow = wsSht1.Cells(Rows.Count, 1).End(xlUp).row

For lRow = 1 To lLastRow Step 1

    'code goes here

Next lRow

End Sub

Thanks for the quick response. This is what I have but for some reason it keeps throwing this error:

Run-time error '9':
Subscript out of range

It happens right when I try to set wsDefense equal to Sheets("Sheet2"). What am i doing wrong?

    Dim lRow As Long, lLastRow As Long
    Dim wsRaw As Worksheet
    Dim wsDefense As Worksheet
    Dim wsEnergyConsulting As Worksheet
    Dim wsEnergyManaged As Worksheet
    Dim wsBusiness As Worksheet
    Dim wsGeneral As Worksheet
    Dim ws As Worksheet
    Dim Exist As Boolean
    
    Range("A1:M2").Select
    Range("M2").Activate
    Selection.Copy

    Exist = False
    For Each ws In Sheets
        If ws.Name = "Defense" Then
            Exist = True
        End If
    Next ws

    If Exist = False Then
        Sheets.Add
        ActiveSheet.Name = "Defense"
        ActiveSheet.Paste
    End If

    Exist = False
    For Each ws In Sheets
        If ws.Name = "Energy Consulting" Then
            Exist = True
        End If
    Next ws

    If Exist = False Then
        Sheets.Add
        ActiveSheet.Name = "Energy Consulting"
        ActiveSheet.Paste
    End If
    
    Exist = False
    For Each ws In Sheets
        If ws.Name = "Energy Managed Services" Then
            Exist = True
        End If
    Next ws

    If Exist = False Then
        Sheets.Add
        ActiveSheet.Name = "Energy Managed Services"
        ActiveSheet.Paste
    End If

    Exist = False
    For Each ws In Sheets
        If ws.Name = "Business Development" Then
            Exist = True
        End If
    Next ws

    If Exist = False Then
        Sheets.Add
        ActiveSheet.Name = "Business Development"
        ActiveSheet.Paste
    End If
    
        Exist = False
    For Each ws In Sheets
        If ws.Name = "General & Adminstrative" Then
            Exist = True
        End If
    Next ws

    If Exist = False Then
        Sheets.Add
        ActiveSheet.Name = "General & Adminstrative"
        ActiveSheet.Paste
    End If
    
    wsRaw = Sheets("Sheet1")
    wsDefense = Sheets("Sheet2")
    wsEnergyConsulting = Sheets("Sheet3")
    wsEnergyManaged = Sheets("Sheet4")
    wsBusiness = Sheets("Sheet5")
    wsGeneral = Sheets("Sheet6")

    lLastRow = wsRaw.Cells(Rows.Count, 1).End(xlUp).Row
    
    For lRow = 3 To lLastRow Step 1

    'Code goes here
    
    Next lRow
    
End Sub

I also tried to do wsDefense = Sheets("Defense"), but for some reason i get this error:

Run-Time error '91':
Object variable or with block variable not set


I dont know where to go from here on either of these problems.

Thanks

solidgold10287,

I apologize I was a little to quick with my response. I left the work "Set" off of my response.

These

    wsRaw = Sheets("Sheet1")
    wsDefense = Sheets("Sheet2")
    wsEnergyConsulting = Sheets("Sheet3")
    wsEnergyManaged = Sheets("Sheet4")
    wsBusiness = Sheets("Sheet5")
    wsGeneral = Sheets("Sheet6")

all need the word Set in front. For example

Set wsRaw = Sheets("Sheet1")

Make that change and see what happens. Sorry for the error.