请教各位大神用VBA怎么自动判定已有的数据的自动转为数字

我已模糊

Sub 确定()
'
' 确定 宏
'

'
    Range("G2:J2").Select
    Selection.Copy
    Range("A3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub





我想设置个VBA按钮，我下在G2：J2进行输入，然后点击确定自动判断并定位A2:D2中非空的行并粘贴过去，我想的是只需要加个判断修改下range，但是试了好几次都不行，求教各位大神我上面的代码应该怎么改，多谢了

hfwufanhf2006

Range("g2:j2").Copy Cells([a100000].End(3).Row + 1, 1)
或者
Range("g2:j2").Copy Range(Cells([a100000].End(3).Row + 1, 1), Cells([a100000].End(3).Row + 1, 4))