Sub Macro3()
Dim Source As Worksheet, Target As Worksheet
Set Source = Sheets("Sheet1")
Set Target = Sheets("Sheet2")
With Target
  .Range("A1").Value = Source.Range("A2").Value
  .Range("C6").Value = Source.Range("G13").Value
  .Range("D6").Value = Source.Range("G11").Value
  .Range("E6").Value = Source.Range("H13").Value
  .Range("F6").Value = Source.Range("H11").Value
End With
End Sub