Kopi af linieområde

Illustrer lige med et eksempel - så skulle det nok kunne lade sig gøre.

Eks:

Ark 1
Kolonne A Linie 2 (dvs. "A2") Løn (bagud)
Kolonne A Linie 3            Ultimo md.
Kolonne A Linie 4            100.000

Kolonne B Linie 2 (dvs. "B2") Løn (forud)
Kolonne B Linie 3            Ultimo md.
Kolonne B Linie 4            50.000

o.s.v.

Hvis jeg så står i A4 (ved beløb) og klikker på en knap skulle den gerne overføre oplysningerne i linie 2 til 4 i kolonne A til et andet ark.
Og på samme måde hvis jeg står i B4 så skal den overføre linie 2 til 4 i kolonne B

OK - nu nævner du linierne 2-6 i spørgsmålet - alle rækker skal vel så med

Yeps..... det var bare et eksempel men der kunne også stå noget i linie (række) 5 og 6 - endvidere kan nogle af linierne være blanke.....

Ok - øjeblik er i gang med forslag...

Har lavet en hvor jeg bruger

Range(Selection, Selection.End(xlUp)).Select

For at få markeret området til kopi - men det driller når der er tomme linier...

Lidt forsinket:

Public Sub overførTilArk2()
Dim tilArk As Worksheet, kolonne As Byte, cc As Object
    Set tilArk = ActiveWorkbook.Sheets("Ark2")
   
    kolonne = ActiveCell.Column
   
    Range(Cells(2, kolonne), Cells(6, kolonne)).Select
    Selection.Copy
   
    For Each cc In Selection.Cells
        adr = cc.Address
        indhold = cc.Value
       
        With tilArk
            .Range(adr).Value = indhold
        End With
    Next cc
   
    Application.CutCopyMode = False
End Sub

Kan det overføres til ark 2 så det lander i samme feltområde og overskriver evt. tidl.

Sker dette ikke?

Data fra kolonne A i ark 1 lander i kolonne A i ark 2
Data fra kolonne B i ark 1 lander i kolonne B i ark 2

Vil gerne have, at det hele lander i Kolonne A og overskriver

Det jeg mere er - jeg vil gerne have data til, at havne i celle B2 hvergang i ark 2.

Rem Version 2
Rem =========
Public Sub overførTilArk2()
Dim tilArk As Worksheet, kolonne As Byte, cc As Object
    Set tilArk = ActiveWorkbook.Sheets("Ark2")
   
    kolonne = ActiveCell.Column
   
    Range(Cells(2, kolonne), Cells(6, kolonne)).Select
    Selection.Copy
   
    For Each cc In Selection.Cells
        adr = cc.Row
        indhold = cc.Value
       
        With tilArk
            .Range("B" & adr).Value = indhold
        End With
    Next cc
   
    Application.CutCopyMode = False
End Sub

.... det var jo lige som det skulle være. Smid et svar til dine fortjente point - mange tak for hjælpen.

Fint - selv tak - & et svar...