Paste

[atuljadhav]

i have data and want to past name in upper cell

A B
Pro1
Pro2 Atul
Pro3
Pro4
Pro5 Chirag

I want short cut which past "Atul" in B1 & paste "Chirag" In B3, B4

 

[VoG]

Select B1:B5

Press F5, click Special, tick blanks, click OK.

Press =

Press Down arrow

Hold down CTRL and press Enter.

 

[Yahya]

May Be something like this

Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
Range("B1:B" & LR).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[1]C"
End Sub