paste data in column B until finds blank cell in column A

[kshitij_dch]

I am looking for a code that will copy last used cell (Xlup) in column B and paste in blank cells in column B untill finds blank cell in column A

 

[MickG]

Try this:-

[COLOR="Navy"]Sub[/COLOR] MG10Nov59
[COLOR="Navy"]Dim[/COLOR] LstA [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long,[/COLOR] LstB [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long[/COLOR]
LstA = Range("A" & Rows.Count).End(xlUp).Row
LstB = Range("B" & Rows.Count).End(xlUp).Row
[COLOR="Navy"]If[/COLOR] LstB < LstA [COLOR="Navy"]Then[/COLOR]
    [COLOR="Navy"]With[/COLOR] Cells(LstB, "B")
        .Resize(LstA - LstB + 1).Value = .Value
    [COLOR="Navy"]End[/COLOR] With
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]If[/COLOR]
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick

 

[KolGuyXcel]

Check this

Sub copy_cl_A_to_B()
Dim row_bla As Long, lrb As Long, i As Long
For Each cell In Columns(1).Cells
If IsEmpty(cell) = True Then row_bla = cell.Row: Exit For
Next cell
If row_bla = 1 And Cells(1, 1).Value2 = "" Then
MsgBox "Nothing to copy"
Exit Sub
End If
lrb = Cells(Rows.Count, 2).End(xlUp).Row
If Cells(lrb, 2).Value2 = "" And lrb = 1 Then
lrb = 0
ElseIf lrb = 1 Then
lrb = 1
End If
For i = 1 To row_bla
Cells(lrb + i, 2).Value2 = Cells(i, 1).Value2
Next
End Sub

 

[Fluff]

Another option
Sub FillBlanks()
Range("B:B").SpecialCells(xlBlanks).Value = Range("B" & Rows.Count).End(xlUp).Value
End Sub