Rellenar rango determinado en Columna. VB Excel

Les paso el código de una función generada, me rellenará las celdas a valor vacío, pero lo realiza dentro de un for una a una y se eterniza, y me gustaría saber si se puede rellenar dicho rango de una sola vez.
Muhas gracias.
Private Sub Limpieza_Hojas_Click()
'declaración de variables
Dim Hoja As String
Dim prueba As String
Dim fila As Integer
Dim col As Integer
Dim transformador As String
Dim rango As String
Dim rango2 As String
'captura la hoja trabajar en cuestión
Hoja = (ActiveWorkbook.Sheets("ORIGEN").Range("D10"))
'Seleecionamos Hoja en la que trabajar
ActiveWorkbook.Sheets(Hoja).Select
'Incializamos variable columnas
col = 1
'Mientras no sea vacio
Do While ActiveSheet.Cells(10, col).Select <> " "
'Si es distinto Lejano y U tráfico
If ActiveSheet.Cells(11, col) <> "Lejano" And ActiveSheet.Cells(11, col) <> "U trafico" Then
' Pongo valor en cada celda
For indice = 17 To 1400
ActiveSheet.Cells(indice, col) = ""
Next indice
col = col + 1
Else
col = col + 1
End If
Loop
End Sub
'