below is the new code i use o autofilter a column in a spreadsheet, then I
want to take the rows associated with that value and move them to a new area
within the spreadsheet. However, it is only taking the cell that is
autofiltered. How can I get the row to copy.

Thanks


Dim rng As Range
DefVars
Range("A199:A222").Select
Selection.AutoFilter Field:=1,
Criteria1:=Sheets(gstrCMCMPrice).Range("B23")

Set rng = ActiveSheet.AutoFilter.Range
If rng.Columns(1).SpecialCells(xlVisible).Count 1 Then
rng.Offset(1, 0).Resize(rng.Rows.Count - 1).Copy _
Destination:=Range("B5")
Else
MsgBox ("No visible data")
End If