Desearía que la ejecución sea en columna B

Para todas las hojas, en la columna B:

Sub RellenarHojas()
'Por.Dante Amor
  Dim sh As Worksheet
  On Error Resume Next
  For Each sh In Sheets
    With sh.Range("B6", sh.Range("B" & Rows.Count).End(3))
      .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
      .Value = .Value
    End With
  Next
End Sub

No podrás copiar una columna y luego pegarla solo en un rango porque la dimensión de la copia superan al rango del pegado.

Cambiá las líneas de copiado y pegado por las 2 que dejo a continuación:

 Application.ScreenUpdating = False
    u = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
    Range("B6:B" & u).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
    'copia y pegado
    Range("B6:B" & u). Copy
    Range("B6").PasteSpecial Paste:=xlPasteValues
    Application.ScreenUpdating = True
    Application.CutCopyMode = False

Esta macro no hace mención a ninguna hoja por lo que se puede utilizar en cualquier hoja activa.