Sugiro definir explicitamente os nomes:
Sub Button3_Click()
Range("E9").Formula = "=SUM(E5:E7)"
Set wsh2 = Worksheets("Sheet2")
Set wsh1 = Worksheets("Sheet1") 'Sheets(1)? make sure it's the first sheet or use Sheets(1)
wsh2.Visible = True
Dim nextRow As Integer
'Find next empty row on Sheet2
nextRow = wsh2.Range("F" & Rows.Count).End(xlUp).Row + 1
'Copy Sheet1!E5:E9, Transpose to Sheet2
wsh1.Range("E5:E9").Copy
wsh2.Range("F6:J6").PasteSpecial Transpose:=True
'Copy Sheet1!N20 to Column G
wsh1.Range("N20").Copy Destination:=wsh2.Range("G" & nextRow)
End Sub