Small change in case you have empty cells in the middle:

Sub Hide()
Dim Ws1 As Worksheet
Dim Ws2 As Worksheet
Dim Rng As String
Dim n As Long

Set Ws1 = ActiveSheet
Set Ws2 = Sheets("Hidden Sheet")
n = Ws1.Range("F" & Ws1.Rows.Count).End(xlUp).Row
If n < Ws1.Range("G" & Ws1.Rows.Count).End(xlUp).Row Then
    n = Ws1.Range("G" & Ws1.Rows.Count).End(xlUp).Row
End If

Rng = Ws1.Range("F3:G3", Ws1.Range("G" & n)).Address

Ws2.Range(Rng).Value = Ws1.Range(Rng).Value

Ws1.Range(Rng).ClearContents
End Sub

Sub UnHide()
Dim Ws1 As Worksheet
Dim Ws2 As Worksheet
Dim Rng As String
Dim n As Long

Set Ws1 = ActiveSheet
Set Ws2 = Sheets("Hidden Sheet")
n = Ws2.Range("F" & Ws2.Rows.Count).End(xlUp).Row
If n < Ws2.Range("G" & Ws2.Rows.Count).End(xlUp).Row Then
    n = Ws2.Range("G" & Ws2.Rows.Count).End(xlUp).Row
End If

Rng = Ws2.Range("F3:G3", Ws2.Range("G" & n)).Address

Ws1.Range(Rng).Value = Ws2.Range(Rng).Value

Ws2.Range(Rng).ClearContents
End Sub