copy cells with number to the end of a column on another worksheet

hello,

I'm trying to find all the cells in a column that have a number somewhere in the value and copy that cells contents to the end of a column on another worksheet.I started with the code below but because some of cells have leading zeros I had to format the column as text, so there are no numeric cells.

Dim lr2 As Long
    Dim rCell2 As Range




    lr2 = Cells(Rows.Count, 1).End(xlUp).Row




    For Each rCell2 In Range("C2:C" & lr2)




    If IsNumeric(rCell2) = True Then




    rCell2.copy Sheets("Sheet2").Range("A" & Rows.Count).End(3)(2)




    End If




    Next rCell2

For example:

Column A on Sheet1
DCB
5020980
0002710
C343
BC
ES-0655
B94
BA

column A on Sheet2
0002471
006344
4540247
0002539
5020980
0002710
C343
ES-065
B94

Re: copy cells with number to the end of a column on another worksheet

Thanks ashu1990, it works perfectly.