Berduş hocam sanki alttaki gibi dahaiyi olur gibi.Döngü içine with ve .[A1] gereksiz olmuş bence.

With HedefSyf

        .[a1] = "Satýr Etiketleri"

        For xStr = 4 To SonStr

            TmpSonStr = .Cells.Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row + 1

            .Range("A" & TmpSonStr & ":A" & TmpSonStr + KaynakSyf.Range("B" & xStr) - 1) = KaynakSyf.Range("A" & xStr)

        Next xStr

  End With