vba to copy numerical data only in first column ,if found copy whole row to another sheet

Hello All

I have a sheet from an external interface that requires to copy specific rows to another sheet in same workbook

The data that I need to copy starts from column A with a header name poste there are numerical data with blanks cells some are alphabetic or alpha numeral.

My concern is to copy the rows with numeric data only ,that is it starts with 01 , 10,55, 190,1000 and so on , the maximum will be 4 digits only in column A.

looking a vba code that lookup these digits on column A , once found copy the whole row still to column A TO I .

the rows concerned are in yellow in sample sheet and expected results in sheet tab.

However the expected sheet results may have blanks or scattered data , this is normal , I will adjust accordingly.

The sheets data shows up 10000 rows which is quite painfully.

Can anyone assist thanks

Originally Posted by JEAN1972

My concern is to copy the rows with numeric data only ,that is it starts with 01 , 10,55, 190,1000 and so on , the maximum will be 4 digits only in column A.

try

Sub test()
    With Sheets("sample")
        Union(.Range("a1:a2"), .Columns(1).SpecialCells(2, 1)).EntireRow.Copy Sheets.Add.Cells(1)
    End With
End Sub

Mumps , Jindon bravo and thank you both , working as requested.

Saved me from a tough task