Hello JC,
See if the following code will do the trick for you:-
Sub TransferStuff()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Range("L1", Range("L" & Rows.Count).End(xlUp)).AutoFilter 1, ""
Range("A2", Range("K" & Rows.Count).End(xlUp)).Copy Sheet2.Range("A" & Rows.Count).End(3)(2)
Range("A2", Range("K" & Rows.Count).End(xlUp)).Delete
[L1].AutoFilter
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Sheet2.Select
End Sub
The code will filter on Column L for blank cells and will transfer the relevant row of data to sheet2. The code will also delete the "used' data from sheet1.
Following is the link to my test work book for you to peruse:-
https://www.dropbox.com/s/hvptuv6w5ehlaox/JC%28Transfer%20rows%20with%20empty%20cells%20in%20Column%20L%29.xlsm?dl=0
Click on the button to see the code at work
I hope that this helps.
Cheerio,
vcoolio.