Makro til kopi af funktion i liste af varierende længde.

Jeg har denne makro, som jeg ikke kan få til at virke. Jeg skal have den til at indsætte en hvis funktion i det felt den står i efter første del af makroen er udført.

Herefter skal den kopier denne funktion hele vejen op i listen til række 1.

Listen variere i længde, så den sidste del af makroen skal sørge for at Range ikke er givet på forhånd...

Håber nogen har en god idé til en løsning...

Range("A1").Select
    Selection.End(xlDown).Select
    Selection.End(xlToRight).Select
    ActiveCell.Offset(0, 1).Activate
    x = ActiveCell.Address
    ActiveCell.FormulaR1C1 = "=+IF(RC[-4]=""Debit"",-RC[-5],+RC[-5])"
    Range(x).Activate
    Selection.AutoFill Destination:=Range("H1:H7"), Type:=xlFillDefault
    Range("H1:" & x).Select