Drag-down formula VBA

[Arctor]

Hello everyone, newbie here, please be gentle.

I have a dataset from columns D to R that constantly gets updated with more rows of data. I have a set of calculation formulas in columns A-C and S-Z.

Is it possible to have a macro that would look at the last non-empty cell in column A, and populate it for however many new rows of data are there, and then do the same thing for the other columns, essentially a drag-down formula ( I don't know whether this would need a repeat process for every column or can even be done in one go?)

Your help is much appreciated, thank you

 

[RCBricker]

Hello everyone, newbie here, please be gentle.

I have a dataset from columns D to R that constantly gets updated with more rows of data. I have a set of calculation formulas in columns A-C and S-Z.

Is it possible to have a macro that would look at the last non-empty cell in column A, and populate it for however many new rows of data are there, and then do the same thing for the other columns, essentially a drag-down formula ( I don't know whether this would need a repeat process for every column or can even be done in one go?)

Your help is much appreciated, thank you

couple questions.

under what circumstances do you want this macro to run? Do you want it to run every time you open the workbook? only when you push a button?

When the data is entered into columns D-R there is no data added to A-C or S-Z correct?

Could you please supply each of the formulas and which column they are to be entered?

Thanks,

 

[Arctor]

Thank you for your reply. Yes, you are correct, first the data in the middle columns is introduced, then the formulas would be dragged-down pressing a button

Column A =VALUE(D1727)
Column B =VALUE(G1727&H1727)
Column C =VALUE(L1727)

Data D-R

Column S =SUMIF(B:B,B1727,R:R)
Column T =IF(R1727<0,"Credit","Debit")
Columns U, V blank
Column W =IF(S1727>0,"Net Debit", "Net Credit")
Column X =IF(DATEDIF(DATE(YEAR($A1727),MONTH($A1727),1),$X$2,"m")=0,"0-30 Days",IF(DATEDIF(DATE(YEAR($A1727),MONTH($A1727),1),$X$2,"m")=1,"30-60 Days","60+ Days"))
Column Y =VLOOKUP(C1727,'Names'!$A$1:$C$1000,3,FALSE)
Column Z =TEXT(D1727,"MMM-YY")



Thanks for your help