Potreban makro za kopiranje bilo kog opsega u okviru reda u excelu u prvi slobodan red

Pozdrav svima!

Molio bih za pomoć. Potrebno mi je da u niže navedenom makrou uradim ispravku istog (ako je moguće) tako da mi prihvati bilo koji označeni red u tabeli a ne samo 67.Na poslu imam bazu sa preko 4000 korisnika koju sam sam uradio u excelu i treba da, kada pronađem po imenu korisnika, u ovom slučaju polje B67, opseg B67:L67 kopiram i nalijepim u prvi slobodan red tabele.Znači opseg B67:L67 treba zamijeniti opsegom BX:LX gjde je x bilo koji broj od 1 pa nadalje. Hvala unaprijed.

Sub novizahtjev()
'
' novizahtjev Makro
' Makro je snimio: zeljkoj, dana 9.2.2012
'
' Tasterska prečica: Ctrl+k
'
Range("B67:L67").Select
Selection.Copy
Application.Run "'Registar 2012.xls'!starikorisnik"
ActiveSheet.Paste
Range("E84").Select
Application.CutCopyMode = False
Selection.ClearContents
End Sub

Evo odradio sam ti jedan primer, valjda je ovo to sto tebi treba.

Potpis

[email protected]=

Ako ti odgovara, možeš da koristiš dijalog aplikacije Application.InputBox da selektuješ oblast koju kopiraš



Vidi primer http://www.elitesecurity.org/t226697-0#1351423

Potpis

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Možda ovo bude korisno.

http://www.elitesecurity.org/t426452

Potpis

Teško je biti direktor a još teže ne biti!?