If you're just trying to move 'End' in this case column F to 'Beg' column E then this should work.
Sub Move_F_To_E()
With Sheet1
.Range("f2").Resize(.Cells(.Rows.Count, "f").End(xlUp).Row - 1).copy .Range("e2")
End With
Application.CutCopyMode = False
End Sub
The sample code you posted is selecting column 7 or G and copying that over to column 6 or F
Worksheets("sheet1").Range("G2").Select 'Column 7 (G)
Range(Selection, Selection.End(xlDown)).Select
Selection.copy Sheets("sheet1").Cells(erow, 6) 'This is copying G to F