Kopiera celler till sammanställning med makro

[balnoj]

Har ett enkelt makrot som kan kopiera ett antal utspridda celler till annat kalkylblad, då i tabell.

Men när jag kör makrot följande gånger "hoppar den över" ett antal rader som verkar motsvara:

Range("B14:I33").Select.

 

Vad jag önskar är att data klistras in på första tomma rad.

 

Makrot ser ut som följer:

 

Sub Makro2()

 

    Range("H4").Select
    Selection.Copy
    Sheets("Transaktioner").Select
    Range("K1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, -10).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

   

    Sheets("Försäljning").Select
    Range("B7").Select
    Selection.Copy
    Sheets("Transaktioner").Select
    Range("K1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, -9).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

   

    Sheets("Försäljning").Select
    Range("A10").Select
    Selection.Copy
    Sheets("Transaktioner").Select
    Range("K1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, -9).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    
    Sheets("Försäljning").Select
    Range("B14:I33").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Transaktioner").Select
    Range("K1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, -7).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

 

End Sub

 

Med vänlig hälsning

 

Jonny

[balnoj]

Lyckades till slut hitta lösningen genom att lägga till följande:

 

Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select

 

Så makrot ser nu ut som följer:

 

Sub Makro2()
'Hämta FakturaNr
    Range("H4").Select
    Selection.Copy
    Sheets("Transaktioner").Select
    Range("K1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, -10).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'Hämta Säljare
    Sheets("Försäljning").Select
    Range("B7").Select
    Selection.Copy
    Sheets("Transaktioner").Select
    Range("K1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, -9).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'Hämta Betaltyp
    Sheets("Försäljning").Select
    Range("A10").Select
    Selection.Copy
    Sheets("Transaktioner").Select
    Range("K1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, -8).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'Hämta Transaktioner
    Sheets("Försäljning").Select
    Range("B14").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Transaktioner").Select
    Range("K1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, -7).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

End Sub