Copy Formula to Active Rows Only

[DC0429]

Need help with the following please... Looking for a way to have a pre-determined formula populate cells in Column K if cells in Column A have data. So, if A2 has data, I need a formula in K2. Formula for K3 if A3 has data (same formula) and so on. I would prefer not to use a typical formula such as "=IF(A2<>"",X,Y)" since this has the potential to cover 1000+ rows. Additionally, we will be deleting rows as they become old and/or obsolete. Any help would be greatly appreciated.

 

[Redwolfx]

Try:

This will get you up to 5000 Lines

Sub Formula()
Dim Formula As String
Dim Mycell As Range
Dim EOS As Long

EOS = Worksheets("Sheet1").Range("A5000").End(xlUp).Row

Formula = Enter your Formula Here"

For Each Mycell In Worksheets("Sheet1").Range("A2:A" & EOS)
    If Mycell.Value <> "" Then
        Mycell(1, 11).Value = Formula
    End If
Next Mycell
End Sub

 

[DC0429]

I will give it a shot. Thank you very much!