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