VBA copy only activecell in specific range

Hello

i use in vba this code:

Please Login or Register  to view this content.

is it way to specific range of activecell? I mean if Im at Range ("A1:BA6") my code wont make changes, or working only in Range ("A7:BA405").

I try With-End With but its doesnt work.

Thank you.