Using last row number as range - cut rows with blank cells

Good Morning,

I am trying with no avail to use reference a varying dataset into a VBA. In short - I am trying to use VBA to run through my data set, and cut/paste entire rows into a second worksheet where cells under the three selected rows contain no data.

I was thinking of using a loop, but im having trouble

Rcount = Range("A65536").End(xlUp).Row
For Each Cell In atrsheet.Range("A1:F" & RcountIf Cell.Value = 0 Then
x = Cell.Row
Rows(x).Copy
btrsheet.Cells(i, 1).Insert shift:=xlUp
i = i + 1
End If
Next Cell

Application.CutCopyMode = False

But it only copies accross the row number, into a column k! there is no column K in my recordset

any help would be greatly appreciated

P