Ampliar rango para análisis en excel

Tengo el siguiente código y me gustaría ampliar el rango, que cambie de columna B a columna A, B, C para poder analizar dichos datos

Sub Aleato()
borrar_anteriores
With Application
   .ScreenUpdating = False
   .DisplayAlerts = False
   '--
   ufila99 = 1 + Sheet99.Cells(Rows.Count, 1).End(xlUp).Row
   tf = Sheets("estadisticas").UsedRange.Rows.Count
   tc = Sheets("estadisticas").UsedRange.Columns.Count
   '--
   For x = 1 To 20
      Do: f = Int((tf * Rnd) + 1)
          c = Int((tc * Rnd) + 1)
      Loop Until Sheets("estadisticas").Cells(f, c) <> ""
      Sheets("analisis").Range("B" & x) = CDbl(Sheets("estadisticas").Cells(f, c))
      Sheets("analisis").Range("B" & x).NumberFormat = "0000"
      Sheets("estadisticas").Cells(f, c).Interior.Color = vbYellow
      Sheet99.Cells(ufila99, 1).Value = f
      Sheet99.Cells(ufila99, 2).Value = c
      ufila99 = ufila99 + 1
   Next
   '--
   .ScreenUpdating = True
   .DisplayAlerts = True
End With
End Sub