copy specific ranges based on certain values

Try something like

Dim Rng As Range
Dim DestRange As Range
Set DestRange = Sheets(2).Range("A" & Sheets(2).Cells(Rows.Count, "A").End(xlUp).Row + 1)
Set Rng = Range("A1")
    Rng.AutoFilter Field:=1, Criteria1:="1"
    Rng.Offset(1, 0).Resize(Cells(Rows.Count, "A").End(xlUp).Row, _
    Cells(3, 7).End(xlUp).Column).Copy _
    Destination:=DestRange
ActiveSheet.AutoFilterMode = False

See link for ideas on tidying it up

http://www.rondebruin.nl/copy1.htm

VBA Noob