If and Else Copy & Paste

[zgivod]

1 Copy only the text of a range (A1:A20) on sheet 1
2 paste that text on the next empty row on sheet 2

I would give my code buts its all rubbish because as far as i got was to copy the whole range and paste it on sheet 2
with spaces

 

[My Aswer Is This]

Try this:
Not sure why you think we need:

If and Else​

Sub Copy_Me()
'Modified  12/13/2018  3:24:12 PM  EST
Application.ScreenUpdating = False
Dim Lastrow As Long
Lastrow = Sheets(2).Cells(Rows.Count, "A").End(xlUp).Row + 1
Sheets(1).Range("A1:A20").Copy Sheets(2).Cells(Lastrow, 1)
Application.ScreenUpdating = True
End Sub

 

[Fluff]

If you want it without blanks, try

Sub zgivod()
Sheets("sheet1").Range("A1:A20").SpecialCells(xlConstants).Copy _
   Sheets("sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1)
End Sub

This assumes that sheet1 has values rather than formulae.