makro na kopii řádků

[acsbaroch]

zdravím,
potřeboval bych makro, které mi vezme řádek a poté se zduplikuje na řádek pod ním...to bych potřeboval ideálně použít na mnou vybranou oblast, případně na celý dokument. nebo by stačila úprava mého makra níže, aby bylo použitelné obecně na excel s max. počtem 500 řádků

Sub Makro1()
'
' Makro1 Makro
'
' Klávesová zkratka: Ctrl+q
'
Rows("6:6").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Rows("5:5").Select
Selection.Copy
Range("A6").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

[Reklama]

[cmuch]

to bych potřeboval ideálně použít na mnou vybranou oblast, případně na celý dokument

- šel by input box kde by se zadal první a poslední řádek nebo oblast
- celý dokument je myšlen jako všechny listy excelu nebo jen jeden list