VBA code to not copy empty cells

[Krown]

I have a code to copy cells to another sheet but I would like it to not copy empty cells or anything less than zero. Can I add something to this?

Sub Add_Data_Click()

ActiveSheet.Range("N4:N249").Copy
Application.Goto Sheets("Time Analysis Data").Cells(4, Columns.Count).End(xlToLeft).Offset(, 1)
ActiveSheet.Paste Link:=True
Application.CutCopyMode = False

End Sub

 

[kevin9999]

This doesn't seem a great deal different from your other question where @Joe4 asked you for a sample of your data - which you're yet to provide.

 

[Fluff]

In future, please do not post the same question multiple times. Per Forum Rules (#12), posts of a duplicate nature will be locked or deleted.

In relation to your question here, I have closed this thread so please continue in the linked thread.