Fout 1004 na kopieren

[Gorinchem]

Goedendag
Ben bezig om data van een rij (Blad2)naar de bijbehorende rij op een ander tabblad ( Blad1) te kopiëren.
Tot zover geen probleem, behalve als op Blad1 een rij is waar geen data heen hoeft. Dit is elke keer een andere rij.
Bijgevoegd een voorbeeldbestand en de code die ik tot dusver heb.
Alvast bedankt voor de hulp.

Dim firstRow As Long, lastRow As Long
    firstRow = 1
    lastRow = Cells(Cells.Rows.Count, 1).End(xlUp).Row
    
    Dim i As Long
    Dim sClass As String

    For i = firstRow To lastRow

With Sheets("Blad1")
   Dim CellValue As String

CellValue = Sheets("Blad2").Range("A1").Value
    
    Columns("A:A").Select
               
        Sheets("Blad2").Range("B1:K1").Copy
        If Cells.Find(What:=CellValue, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate Then
        
        ActiveCell.End(xlToRight).Select
        ActiveCell.Offset(0, 1).Select
        
        .Paste
        
        End If
        Sheets("Blad2").Rows(1).EntireRow.Delete
Sheets("Blad1").Select
Cells.SpecialCells(xlCellTypeBlanks).Delete xlToLeft

End With
Next
Range("C1:L27").Select
Dim r_Row As Range

For Each r_Row In Selection.Rows
r_Row.SortSpecial , , , , , , , , , , , xlSortRows
Range("A1").Select
Next

End Sub

 

[sylvester-ponte]

gebruik F8 om je programma stap voor stap te laten lopen.
dan zie je na verloop van tijd, dat je met het eerste regeltje van deze code:

        ActiveCell.End(xlToRight).Select
        ActiveCell.Offset(0, 1).Select

aan het rechter einde van je sheet bent gekomen.
met de volgende regel wil je nog een stapje meer naar rechts.
dat gaat niet.

 

[Gorinchem]

Dank je voor deze reactie.
Ben zelf aan het snuffelen geweest en het is voor elkaar. Ik zal deze vraag op opgelost zetten