Hi all,

I have a macro that copies a complete row (in this case row 2) and past it in a new row below the selected cell.
I've tried to move the row that i want to copy to a different tab but i didnt succeed.
So for example i want to have the information i want to copy in row 1 in tab X
copied to the row below a selected cell in tab Y
Can someone help? Thanks!!

Sub Rij_Invoegen()
    Dim xlCalc As XlCalculation
    With Application
        .ScreenUpdating = False
        xlCalc = .Calculation
        .Calculation = xlCalculationManual
        .EnableEvents = False
        .DisplayAlerts = False
    End With

Rows(2).Copy
Rows(ActiveCell.Row).Offset(1).Insert
Rows.Copy
ActiveCell.Offset(1, 0).Select
ActiveCell.EntireRow.Hidden = False

With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .DisplayAlerts = True
        .Calculation = xlCalc
        .CutCopyMode = False
    End With
    
End Sub