Hello Everyone,
I've been using these forums for quite some time but I am completely stuck, so this is my first post. I'm currently attempting to Copy rows from sheet "A" to sheet "B" based on a Boolean in column A sheet "A".

The Code I have works, but I'm trying to figure out how to modify it so it doesn't sort the data on Sheet A and can be run from Sheet B.

I continue to screw this up and do not know VBA well enough yet. Thank you in advance for any assistance you are able to give me it is much appreciated. Please let me know if I'm not making sense or need to clarify anything I'm trying to do. (Excel 2010 and Windows 7)

Thanks,
VS

Sub test1()
Dim r As Range, filt As Range
With Sheets(2)
.Range("B5:I17").Cells.Clear
End With
With Sheets(1)
Set r = .Range("A4").CurrentRegion
r.Sort key1:=Range("A4"), order1:=xlDescending, Header:=xlYes
r.AutoFilter field:=1, Criteria1:="TRUE"
Set filt = r.Offset(1, 0).Resize(r.Rows.Count - 1).SpecialCells(xlCellTypeVisible)

filt.Areas(1).Columns("C:J").Copy
With Sheets(2)
.Range("B5:G17").PasteSpecial
End With
.AutoFilterMode = False
End With
Application.CutCopyMode = False
End Sub