End Down

Hej igen.

Ved godt at nedennævnte ikke er fuldkommen.

Problemet er dette, at det er en "tabel" med koder som skal udvides med 1 linje hver gang VBA køres - den nedenanførte - og det sker ikke, da VBA  hver gang snupper Range fra første gang den afvikles.

Vil gerne gøre den dynamisk hvis det er muligt.

Årsagen til mit ønske - arket ser forfærdeligt ud hvis der indlægges formler osv. i f.eks. 50 linjer som først egentligt skal bruges de næste 50 dage. 


    Range("B13").Select
    Selection.End(xlDown).Select
    Range("B21:N21").Select
    Selection.Copy
    Range("B22").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("B22").Select