Need help with Copy and Paste after autofilter

[UPSDuder]

After I apply an autofilter to get to the data I am wanting to work with I need to make Column AA equal to Column X. Is there a way to paste into visible cells of AA or a way to set the cell in AA = X? Being that it is a moving target I am not sure how to declare this range.

Current code: That cannot be used on multiple selections

Dim xlBook As Workbook
Dim xlSheet As Worksheet
Dim LastRow As Long
Dim LastRow2 As Long

Set xlBook = ActiveWorkbook
Set xlSheet = xlBook.Sheets("dspExcelExport")
If xlSheet.AutoFilterMode Then
xlSheet.AutoFilter.ShowAllData




'filter for AM times and update AA to reflect 12
xlSheet.Range("A:AA").AutoFilter Field:=21, Criteria1:="*AM*"

xlSheet.Range("X2:X" & LastRow).SpecialCells(xlCellTypeVisible).Copy _
Destination:=xlSheet.Range("AA2").SpecialCells(xlCellTypeVisible)

 

[UPSDuder]

this my attempt at trying a loop to copy each visible cell in column X and paste it into the respective row in column AA, it runs.... but nothing is copied over.


xlSheet.Range("A:AA").AutoFilter Field:=21, Criteria1:="*AM*"
Dim MyRange As Range
Dim myCell As Range
Dim visRow As Long

visRow = xlSheet.Range("X" & Rows.Count).End(xlUp).Row

Set MyRange = xlSheet.Range("X2:X" & visRow).SpecialCells(xlCellTypeVisible)
For Each myCell In MyRange
ActiveCell.Copy
ActiveCell.Offset(3, 0).PasteSpecial xlPasteValues
Next

 

[Fluff]

How about

Set myrange = xlSheet.Range("X2:X" & visRow).SpecialCells(xlCellTypeVisible)
For Each MyCell In myrange
   MyCell.Offset(, 3).Value = MyCell.Value
Next

 

[UPSDuder]

Worked like a charm thank you

 

[Fluff]

You're welcome & thanks for the feedback