Delete rows from a sheet with an equal number of Intervals in Excel Macros

Sub deleteeveryotherrow()
For x = 3 To 100 Step 1
 Rows(x & ":" & x).Select
    Selection.Delete Shift:=xlUp
 Rows(x & ":" & x).Select
    Selection.Delete Shift:=xlUp
    x = x + 1
    Next x
End Sub

What number comes inside the Circle:

Rename a Table Under a MS Access File

Edit Table Name in MS Access (.accdb or .mdb format) through a click button.

Dim tdf As TableDef
    Set db = DBEngine.Workspaces(0).OpenDatabase("InputPath")
    Set tdf = db.TABLEDEFS("TableName")
    tdf.Name = "TableName" + "_SomeThing_NEW"