Hi Monique,

How can I get the row to copy.

Presumably, you do not mean the entire row (all 256 columns) because an
entire row cannot be copied to B5, your destination cell.

So what defines the row(s)?


---
Regards,
Norman



"Monique" wrote in message
...
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