Change Copy/Paste Macro to Exclude Rows Where Column is Empty

[rob51852]

Hi,

I have put together the code below to copy and paste data to a sheet called "Store". It works fine but sometimes column E of the source data is empty.

Is there a way of amending the macro so it does not copy rows where column E is empty?

Thanks

Sub CopyToStore()
With ThisWorkbook.Worksheets("Data")
 .Range("A3:L" & .Cells(Rows.Count, "E").End(xlUp).Row).Copy Destination:=ThisWorkbook.Worksheets("Store").Range("A" & .Rows.Count).End(xlUp).Offset(1)
End With
End Sub