Use VBA to extract Row number from active cell

When you "delete" a row that row gets deleted, meaning removed from the sheet, with everything in it. For the purpose of "erasing" the contents of cells, but not the cells themselves, VBA has the ClearContents method. It works on a Range object, meaning you can apply it to individual cells or larger areas.

You can use ActiveCell.Row to determine the row number of the ActiveCell. You can use it to define a range, perhaps as shown below.

Dim R As Long
Dim Rng As Range

R = ActiveCell.Row
Set Rng = Range(Cells(R, "A"), Cells(R, "C"))
Set Rng = AppliCation.Union(Rng, Range(Cells(R, "F"), Cells(R, "G"))
Rng.ClearContents

The above code would erase the contents of ranges A:C and F:G in the row of the ActiveCell. Please be very careful when using ActiveCell. That's because that cell is usually determined by the user, not the code. If you let the user interfere with what your code does there is a high risk. And if you let your code determine the ActiveCell in the above context your code needs re-working. More usually, the row to erase in would be one that your program determined, such as the last row in the worksheet.

Edit Jul 22, 2020   ======================

Referring to your request for clarification in the Discussion below, please try this code.

Private Sub Try()
    Dim Rng As Range
    Dim R As Long

    R = ActiveCell.Row
    Set Rng = Range(Cells(R, "A"), Cells(R, "E"))
    Set Rng = Application.Union(Rng, Cells(R, "G"))
    Set Rng = Application.Union(Rng, Range(Cells(R, "I"), Cells(R, "J")))

    Debug.Print Rng.Address
'    Rng.ClearContents
End Sub

A cell is the smallest possible range. You would normally address it as a member of the Cells collection. The syntax is Cells([Row number], [Column number/name]). When you specify a cell like that you get a Range object. because Excel doesn't have a "Cell" object.

The VBA syntax to define a Range requires specification of the first and last cells. It looks a little laborious but it's simple enough, Range(Cells([Row number], [Column number/name]), Cells([Row number], [Column number/name])).

The problem you came up against is how to define a range of a single cell. That is straight-forward, too. If you want to define it as a Range you must use the syntax for defining a range, like Range(Cells(R, "G"), Cells(R, "G")). But you can also use the syntax for defining a single cell as I have done in my code above.