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 WithWith 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