Hi guys,

I need some help for an error that occurs when cutting and pasting. I'm trying to cut the outcome of a formula ans paste it somewhere else but I get an error 1004. Could some help me with this error : $

Option Explicit

Sub SplitDataNrows()
Dim n As Long, rw As Long, LR As Long, Titles As Boolean

    If MsgBox("Would you like to send it now?", vbYesNo, _
                "Confirm") = vbNo Then Exit Sub
    n = Application.InputBox("How many rows?", "N-Rows", 1, Type:=1)
    If n = 0 Then Exit Sub
    If MsgBox("include titels?", vbYesNo, _
                "Titles?") = vbYes Then Titles = True

    Application.ScreenUpdating = False
    With ActiveSheet
        LR = .Range("A" & .Rows.Count).End(xlUp).Row
        
        For rw = 1 + ---Titles To LR Step n
            Sheets("testletter").Select
            Sheets("testletter").Copy After:=Sheets(3)
            If Titles Then
                .Rows(1).Copy Range("A28")
                .Range("A" & rw).Resize(n).EntireRow.Copy Range("A29")
                Range("A14") = "Washington, " & Format(Date, "mm-dd-yyyy")
                Range("G29:H29").Select
                Selection.Cut
                Range("A8").Select
                ActiveSheet.Paste
                Range("J29").Select
                Selection.Cut
                Range("A9").Select
                ActiveSheet.Paste
                Range("K29").Select
                Application.CutCopyMode = False
                Selection.Cut
                Range("A10").Select
                ActiveSheet.Paste
                Range("F29").Select
                Selection.Cut
                Range("B10").Select
                ActiveSheet.Paste
                Range("A8:B8").Select
                

                    If Range("A8").Value = "" Then
                Range("A8").Select
                Selection.Delete Shift:=xlToLeft
                Else
                                    Range("A8:B8").Select
                Range("B8").Activate
                Selection.Cut
                Range("I8").Select
                ActiveSheet.Paste
                Range("K8").Select
                ActiveCell.FormulaR1C1 = "=RC[-2]&"" ""&RC[-1]"
                Range("K8").Select
                Selection.Cut
                Range("A8").Select
                Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                    :=False, Transpose:=False
                Range("I8:J8").Select
                Selection.ClearContents
                End If

          
            Else
                .Range("A" & rw).Resize(n).EntireRow.Copy Range("A28")
            End If
            'Columns.AutoFit
        Next rw
        
        .Activate
    End With
    Application.ScreenUpdating = True

End Sub