Memilih Baris Tertentu sampai Baris Terakhir

Coding memilih baris tertentu, kemudian menyeleksi sampai baris terakhir :

Sub Pilih_B5_baris_akhir()
Range("B5").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Interior.ColorIndex = xlNone
End Sub

PR: wait... I: wait... L: wait... LD: wait... I: wait... wait... Rank: wait... Traffic: wait... Price: wait... C: wait...