Copy Formulas

[arnapsui]

Hi

I have numbers of sheets in workbook and I have entered a formula in a cell. Each sheets are holding different number of rows with data. I want a macro to copy the formula from the cell to and paste it till the ned of row with data in a partcular column.

Example:
Formula in Cell B4

Sheet1: Number of rows 20, I need to copy and paste till B20

Sheet2: Number of rows 15, I need to copy and paste till B15

Thanks

 

[VoG]

Assuming that the formula already exists in B4 of each sheet try

Sub FillFormula()
Dim LR As Long, ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
    LR = .Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
    If LR > 4 Then .Range("B4").AutoFill Destination:=.Range("B4:B" & LR)
Next ws
End Sub