Umiddelbart vil jeg tror, at dette løser problemet:
With ActiveSheet.Range("D3") .FormulaR1C1 = "=IF(RC[-1]>0,RC[-3],"""")" .AutoFill Destination:=Range("D3:D182"), Type:=xlFillDefault End With
Problemet med din kode er, at ActiceCell ikke nødvendigvis er Range("D3"), fordi markøren ikke nødvendigvis er her, men f.eks. udmærket kan være placeret i celle D2 (afhængigt af f.eks. den øvrige kode).
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.