Macro para completar columna hasta el final de registros

[jeaa]

Buenos dias expertos, requiero una ayuda, lo que pasa es que tengo una hoja que importa datos de diferentes libros externos y funciona perfecto, pero lo que pasa es que en la columna B aveces faltan datos ya que debe ser la misma palabra "DIGITAL", lo que requiero es una macro que me copie o me rellene la palabra antes mencionado hasta la altura de los registros importados. Por favor me pueden apoyar con dicha macro estare agradecido de todo ustedes se que en esta comunidad hay muchos expertos.

Adjunto el archivo.

Consolidado.xlsm

[Antoni]

Range("B2:B" & ActiveSheet.UsedRange.Rows.Count) = "DIGITAL"

 

[jeaa]

Antoni muchas gracias, eso lo que esperaba.

Consegui también estas lineas codigo.

Sub Rellenar()
Dim uf, fila As Integer
uf = Sheets("Consolidar").Range("A" & Rows.Count).End(xlUp).Row
fila = 2
While fila <= uf
If Sheets("Consolidar").Cells(fila, 2) = Empty Then
   Sheets("Consolidar").Cells(fila, 2) = "DIGITAL"
End If
fila = fila + 1
Wend

End Sub