Public Sub selezioneB()
    Dim rng As Range
    Dim rngB As Range
    Dim nRows As Long
    Dim nRow As Long
    Set rng = Selection
    With rng
        nRows = .Rows.Count
        nRow = .Row
    End With
    If nRows > 1 Then
        Set rngB = Range("B" & nRow & ":B" & nRow + nRows - 1)
    Else
        Set rngB = Range("B" & nRow)
    End If
    rngB.Select
End Sub