Sub Button4_Click()
x = 15
Do While Cells(x, 1) <> ""
If Cells(x, 1) <> "" Then
Worksheets("Sheet1").Rows(x).Copy
Rows(x).PasteSpecial xlPasteValues
Worksheets("Sheet2").Activate
erow = Sheet2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
ActiveSheet.Paste Destination:=Worksheets("Sheet2").Rows(erow)
End If
Worksheets("Sheet1").Activate
x = x + 1
Loop
End Sub