Copying data in the last line of one list to the bottom of another list

[bluehaven]

I have written this macro, which I'm afraid doesn't work. Could you please tell me what is wrong with my code? Many thanks.

Sub Transfer_Click()
For Each a In Range("b1:b10")
If WorksheetFunction.IsText(a) = True Then a.Select
Next a
sel1 = Selection
For Each b In Range("c1:c10")
If WorksheetFunction.IsNumber(b) = True Then b.Offset(1, 0).Select
Next b
sel2 = Selection
sel2 = sel1
End Sub

bluehaven