ActiveCell.FormulaR1C1 = "=MID(RC[-1],5,9)"     Range("E2").Select     Selection.AutoFill Destination:=Range("E2").End(xlDown), Type:=xlFillDefault ' tutaj jest błąd     Range("E2").End(xlDown).Select     Selection.Copy     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False   Jak to zdebugować? Chcę żeby formuła została przeciągnięta do ostatniej zapełnionej komórki. 

Witam,Potrzebuję pomocy w sprawie stworzenia makra, które na podstawie jednego pliku excel stworzy kilka(naście) innych plików, tzn. bazując na szablonie zmieni jedną lub dwie dane w środku i zapisze pod ...

Chciałabym, aby po kliknięciu buttona wysyłał się e mail, w którego treści będzie tylko pewien obszar z arkusza. Najlepiej jakby to było zaznaczane od komórki A2 → ctrl + aMam ...