need apply formula with variable amount of selected cells

[Hordraric]

Hello everyone,

im sorry if i dont express myself in the best way or if this question is already explained in full detail on the forums, is that i am new to VBA and excel macros (self-learning) and someone you dont know the names of stuff so when you search for it you might not find what you looking for due to not know the specific names for it.
my problem is the following: i have many tables that i want to apply the following formula: =Sum(A22:AX) being X the last cell of column A with a value. The thing is that X value varies from table to table and each time i apply record macro it writes down a specific number and therefore it cant be applied onto tables with different size.
so my question is if there is some way to specify a range/selection without being too specific, namely say which cell it is but rather a general and adjustable code.

Best regards and thank you for whoever can help me with this,
Hordraric

 

[most]

I would say no. One way to solve it would be to find the last column for each sheet and then apply that number to the code.
<code class="plain">

LastColumn = CellInRow.</code><code class="keyword">End</code><code class="plain">(xlToRight).Column</code><code class="plain">

</code>

 

[MARK858]

To sum from A22 to last cell with data in column A with result after last cell with data in column A. One way...

Sub sumit()
Dim xRng As Range
Set xRng = Range("A" & Rows.Count).End(xlUp)
xRng(2).Formula = "=SUM(A22:A" & xRng.Row & ")"
End Sub

 

[Hordraric]

To sum from A22 to last cell with data in column A with result after last cell with data in column A. One way...

Sub sumit()
Dim xRng As Range
Set xRng = Range("A" & Rows.Count).End(xlUp)
xRng(2).Formula = "=SUM(A22:A" & xRng.Row & ")"
End Sub

omg thank you so much!!! it works T-T

 

[MARK858]

No problem and welcome to the board.