Trying to paste only rows with data in certain columns

[Xero]

Hi, everyone!
I am copying from one worksheet to another. My current code works perfectly, except it also copies the blank rows after my data. What I need it to do is only copy rows with data in column E. I also listed the range as A13 to L100, but L could be any number of rows. Can anyone help out?
Sub Rectangle1_Click()
Dim SourceRange As Range
Set SourceRange = ThisWorkbook.Worksheets("Input").Range("A13:L100")
Dim NextFreeCell As Range
Set NextFreeCell = ThisWorkbook.Worksheets("Work Transfer Log").Cells(Rows.Count, "B").End(xlUp).Offset(RowOffset:=1)
SourceRange.Copy
NextFreeCell.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Range("E14:I100").Select
Selection.ClearContents
Range("F3:F9").Select
Selection.ClearContents



End Sub

 

[JoeMo]

Does this do what you want?

Sub Rectangle1_Click()
Dim Lrw As Long
Dim SourceRange As Range
Lrw = ThisWorkbook.Worksheets("Input").Cells(Rows.Count, "E").End(xlUp).Row
Set SourceRange = ThisWorkbook.Worksheets("Input").Range("A13:L" & Lrw)
Dim NextFreeCell As Range
Set NextFreeCell = ThisWorkbook.Worksheets("Work Transfer Log").Cells(Rows.Count, "B").End(xlUp).Offset(RowOffset:=1)
SourceRange.Copy
NextFreeCell.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Range("E14:I100").Select
Selection.ClearContents
Range("F3:F9").Select
Selection.ClearContents



End Sub

 

[Xero]

This is exactly what I needed. Thanks!!!!!

 

[JoeMo]

This is exactly what I needed. Thanks!!!!!

You are welcome - thanks for the reply.