Having Trouble Cleaning up the Recorder Code

[Guzzlr]

Hello All.
I've been trying to clean up the recorder code:

Sheets("HV-1").Select
    Range("A4:B4").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("HV-1 PVT").Select
    Range("T3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Sheets("HV-1").Select
    Range("G4").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Application.CutCopyMode = False
    Range("A1").Select
    Sheets("HV-1 PVT").Select
    Range("V3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

To the new code below... but having issues.
Can someone direct me what I'm doing wrong please.
Thank you

With Sheets("HV-1")
Range("A4:B4").Range(Selection, Selection.End(xlDown)).Select
.Copy
End With

With Sheets("HV-1 PVT")
Range("T3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With

With Sheets("HV-1")
Range("G4").Range(Selection, Selection.End(xlDown)).Select
.Copy
Application.CutCopyMode = False
Range("A1").Select
End With

With Sheets("HV-1 PVT")
Range("V3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With

 

[Guzzlr]

I've now cleaned it up a little and seems to be working, can I do more?
Thanks for the help

Sheets("HV-1").Select
Range("A4:B4").Select
Range(Selection, Selection.End(xlDown)).Copy
Sheets("HV-1 PVT").Select
Range("T3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HV-1").Select
Range("G4").Select
Range(Selection, Selection.End(xlDown)).Copy
Range("A1").Select
Sheets("HV-1 PVT").Select
Range("V3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

 

[johnnyL]

    Range(Sheets("HV-1").Range("A4:B4"), Sheets("HV-1").Range("A4:B4").End(xlDown)).Copy
    Sheets("HV-1 PVT").Range("T3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Range(Sheets("HV-1").Range("G4"), Sheets("HV-1").Range("G4").End(xlDown)).Copy
    Sheets("HV-1 PVT").Range("V3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Application.Goto Sheets("HV-1").Range("A1")