How to Select Cells/ Range

Sub cells_selection()

Dim i As Integer
i = 5
Range("A1:D10").Select
Cells(5, 10).Select
Range("A" & i).Select
Cells(1, Columns.Count).Select
Range(Cells(1, 1), Cells(5, 5)).Select
Range(Range("A1:A5"), Range("H1:H5")).Select

End Sub