Copy paste code fails
 

In using the attached code the code stops after coping & pasting the 1st
line of the 2nd last sheet. Any clever ideas guys ?

Dim r As Integer
' ''''''''''''''''''''''''''''''''from row 2
r = 2
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets

Dim Rng As Range
Dim i As Range
Set Rng = ws.Range("K2", ws.Range("K" & ws.Rows.Count).End(xlUp))
For Each i In Rng
If i = "" Then
i.EntireRow.Copy
SHT.Range("K" & Rows.Count).End(xlUp)(r). _
EntireRow.PasteSpecial
r = r + 1

End If
Next i

Next ws