vba for copy and paste the formula from above cells auto fill

[prabhakar_1504]

this is the data that looks with

formula are in first row with data validation too rows form starts at B10: to P10 ends
but not getting the auto filled with the below rows

can you help me with vba coding

Date

SID

Processor

Queue

CFW/KANA Case ID

Account Number

Bank Number

Amount in ($)

Request Type

Status

Comment

Comment 2

KES

MITS (YES/NO)

Verifier

4/9/2023

E886872

Prabhakar K

E-Fax

1

Close Out

Processed

4/9/2023

E870126

Megha V R

E-Fax

Close Out

Misdirected

CD Funded IAO $ Kana Case ID: as per recons….. for internal questions please contact the support line area @1 800-935-9935

 

[Monty Norman]

Hello @prabhakar_1504

Why not use something like:

ActiveCell.Formula = "=B1+C1"

You can change the formula and you can change the range of where you want the formula to be.

Have you worked with the VBA Recoder before?
Do you have the Developer Tab showing in the Ribbon?

If the answers are YES then this should be a simple 5 minute work and you would have done the work yourself.

Let us know if you need any more help.

Montey

 

[prabhakar_1504]

Hello Monty,

i have just started learing on VBA, i have an excel work so, it's bit hard to me on it.
yes i do have developer tab on my ribbon

Date

SID

Processor

Queue

CFW/KANA Case ID

Account Number

Bank Number

Amount in ($)

Request Type

Status

Comment

Comment 2

KES

MITS (YES/NO)

Verifier

4/9/2023

E886872

Prabhakar K

E-Fax

1

Close Out

Processed

4/9/2023

E870126

Megha V R

E-Fax

Close Out

Misdirected

CD Funded IAO $ Kana Case ID: as per recons….. for internal questions please contact the support line area @1 800-935-9935

on my excel SID has an xlookup formula based on name and same for comment 2 based datavalidatoin on request type

data validation columns are processor, queue, request type, status, comment

i want this formula & data validation for the entire row, this data will be saved on daily basis for the entire year.

below are coding made.
Sub AutofillFormula()
Dim LastRow As Long
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
Range("B10:P10").AutoFill Destination:=Range("B11:P" & LastRow)
End Sub