Transfer the values from one sheet to another by adding them to below of previous row

[SamT]

With Worksheets("sipkalem").Range(Cells(2, "A"). Cells(Rows.Count, "A").End(xlUp).Offset(, 8)
   If .Cells(4).Value <> "" Then
      .Copy Sheets("Sayfa4").Cells(Rows.Count, "A").End(xlUp).Offset(1)
   End If
   .ClearContents
End With

With the entire table
IF Cell # 4 is Empty
Copy the entire table to the first empty Row(s) in the other sheet
Clear Contents of the entire table