Je voudrai sélectionner plusieurs cellule en même temps

Je voudrai sélectionner plusieurs cellule en même temps
Voici un code que j'ai fait pour entourer des données suivant leurs condition, je ne parvient pas trouver le bon codage pour sélectionner plusieurs cellules a la fois ( les cellules B à J)
En vous remerciant d'avance.
Bien à vous
Christian
Voici mon code
Sub Entourer ()
Dim B1 As Integer
For B1 = Cells.SpecialCells(xlCellTypeLastCell).Row To 6 Step -1
If Range("N" & B1).Value <> "" Then
Range("B" & B1).Select
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlMedium
End With

End If