Åbne lukke skjult faneblad

du kan kopiere til et skjult ark sådan uden at selecte

Range("A1").Copy Sheets("Ark2").Range("A" & (Sheets("Ark2").UsedRange.Rows.Count) + 1)

Jeg bruger nedenstående til at flytte værdier fra arket Diagram til arket Maalevaerdier, og så gemme til sidst.
Det er så Maalevaerdier jeg vil skjule, så hvor kan den foreslåede kode indsættes?

Sub flytdata()


Dim targetRow As Long


' finder første tomme række i ark Maalevaerdier
targetRow = Worksheets("Maalevaerdier").Range("A1000000").End(xlUp).Row + 1

'selekter  ark Diagram celle A2
Worksheets("Diagram").Range("A2").Select

' kopierer aktiv række
Rows(ActiveCell.Row & ":" & ActiveCell.Row).Copy

' vælger kopiarket og den første ledige række og indsætter
Worksheets("Maalevaerdier").Select
Rows(targetRow & ":" & targetRow).Select
ActiveSheet.Paste


' tilbage til originalarket
Worksheets("Diagram").Select

' cursor i aktive celle
ActiveCell.Offset(0, 0).Select

' gemmer dokumentet
ActiveWorkbook.Save


End Sub

Sub flytdata()


''Dim targetRow As Long


' finder første tomme række i ark Maalevaerdier
''targetRow = Worksheets("Maalevaerdier").Range("A1000000").End(xlUp).Row + 1

'selekter  ark Diagram celle A2
''Worksheets("Diagram").Range("A2").Select

' kopierer aktiv række
''Rows(ActiveCell.Row & ":" & ActiveCell.Row).Copy

' vælger kopiarket og den første ledige række og indsætter
''Worksheets("Maalevaerdier").Select
''Rows(targetRow & ":" & targetRow).Select
''ActiveSheet.Paste


' tilbage til originalarket
''Worksheets("Diagram").Select
Rows(ActiveCell.Row & ":" & ActiveCell.Row).Copy Sheets("Maalevaerdier").Range("A" & Worksheets("Maalevaerdier").Range("A1000000").End(xlUp).Row + 1)
' cursor i aktive celle
ActiveCell.Offset(0, 0).Select

' gemmer dokumentet
ActiveWorkbook.Save


End Sub