Hej

den här koden har jag använt vid ett flertal tillfällen och den fungerar bra. Du måste förståss ändra lite grand med kolumnnamn. För att den ska fungera markerar du den rad som du vill föra över till ett annat blad, kör makrot "Infoga" och det ska vara klart.

Sub infoga()

Dim i As Integer
Dim NumRows As Long

'Stäng av uppdatering av skärm
Application.ScreenUpdating = False

'Välj det blad där informationen ska kopieras in
Sheets("Blad2").Select

' Räknar hur många rader som inte är tomma
     
        NumRows = Range("B2", Range("B2").End(xlDown)).Rows.Count

'Markerar en cell i första kolumnen
        Range("a2").Select
     
 'Gör en loop för att ta reda på nästa tomma rad där den kopierade
 'informationen ska infogas
 
      For i = 1 To NumRows
         ActiveCell.Select
         ' Selects cell down 1 row from active cell.
         ActiveCell.Offset(1, 0).Select
      Next i
'Klistra in informationen på blad 2

    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
       
         ActiveCell.Offset(0, 4).Select  '4 betyder kolumn 4 du väljer själv nummer
        Selection.Delete Shift:=xlToLeft  'tag cellen och flytta till vänster
      
        ActiveCell.Offset(1, 0).Select

'Aktiverar Screen uppdateringen
Application.ScreenUpdating = True
End Sub

Hoppas att det fungerar

Gunilla