Copy Cell From One Cell and Paste to next blank cell, Loop until last row/column

Thank you very much. So let say the above condition is in first row instead of first column, can i modified the code like below?

Sub CopyCells()
Dim rng, cell As Range
Dim lr As Long
lr = Cells(1, Columns.Count).End(xlToLeft).Column

Set rng = Range(lr & "A1:1")
For Each cell In rng
If cell = "" Then
cell = cell.Offset(0, -1)
End If
Next cell
End Sub

first column

Columns(1).SpecialCells(xlBlanks) = "=R[-1]C"]

first row

Rows(1).SpecialCells(xlBlanks) = "=RC[-1]"

it's usually a good idea to put On Error Resume Next as first line in these special cells codes to void error in event of no blank cells

can also re-size the column or row to include only the first 11 elements if that's what's wanted

if your "copy and paste" is to include cell formats then can use different approach (for columns, mutatis mutandis for rows)

Sub fillblanks()
Dim c As Range
Set c = Cells(1) 
Do
If c(2) = "" Then c.Copy Range(c(2), c.End(4)(0))
Set c = c.End(4)
Loop Until c.End(4).Row = Rows.Count
End Sub

Hi this is working for data in Column A1. how to modify this code for selection of data in any column