Cut and Paste Data in a Filitered Range

[lifesgood]

Hi,

I'm pretty new to VBA and I would like to cut the data available below the header column from columns L to S and paste it in Columns D to K in the same sheet. Please note that it is a filtered range and the data should be cut from and pasted in the visible cells only. Also, please note that the header column should not be included. Please let me know if you need more details.

Thanks in advance for all your help!

 

[lifesgood]

I did try to come up with something but the paste function doesn't seem to be working. It selects the cell below the header in Column D but the data doesn't get pasted Also, the filtered range seems to be very specific to the current data I have in my sheet. I'm not sure how to change this part of the code - " ActiveSheet.Range("$A$1:$U$105").AutoFilter Field:=19, Criteria1:="<>" " and make it non-specific.

Range("S1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$U$105").AutoFilter Field:=19, Criteria1:="<>"
Range("L1:S1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1, Selection.Columns.Count).Cut
With Worksheets("Sheet1").AutoFilter.Range
Range("D" & .Offset(1, 0).SpecialCells(xlCellTypeVisible)(1).Row).Select
End With
Selection.Paste