Paste Filtered Date from one Column to another Filtered Column

[snaplink22]

Hello,

I've research this issue, but haven't found a simple explanation so I'm hoping someone can assist me. How do I paste filtered data from one column into another filtered column? No this is not as simple as selecting the "visible cells" in one column and then selecting paste in the second column. I have several rows filtered out and need to copy the filtered data from column B to column A so it ignores all the filtered out data.

Example: My sheet contains rows 1 - 50, but the filter has removed lines 16-32 leaving lines 1-15 & 33-50 visible. I want to copy the date in column B to those cells right next to each other in column A.

Thank you.

 

[Fluff]

How about

Sub CopyDate()
   Dim Rng As Range
   For Each Rng In Range("B:B").SpecialCells(xlVisible).Areas
      Rng.Offset(, -1).Value = Rng.Value
   Next Rng
End Sub