یک Table مثل تصویر زیر دارم
میخوام ردیف ها را با استفاده از یک کد ماکرو مرتب کنم
از یک تا هرچند تا شماره که بود ، پشت سر هم مرتب بشوند
من از کد زیر استفاده کردم خطا داد
Sub Button1_Click()
Range("A2").Value = 1
Range("A3").Value = 2
Range("A2:A3").Select
Selection.AutoFill Destination:=Range("Table3[رديف]")
End Sub
Sub Button2_Click()
Range("E2").Value = 1
Range("E3").Value = 2
Range("E2:E3").Select
Selection.AutoFill Destination:=Range("E2:E15")
End Sub



کامنت