Macro to selectively copy cells from excel.

Hi Venkat89, I don't know if this is the fix but it is a start. Try

Option Explicit

Sub CopyFromBlanks()
    Dim oCell As Range
    Dim Ws1 As Worksheet
    
    Set Ws1 = Worksheets("Sheet1")
    For Each oCell In Ws1.Range(Ws1.Cells(1, 1), Ws1.Cells(Rows.Count, 1).End(xlUp))
        If oCell.Offset(0, 1).Value = "" Then oCell.Offset(0, 2).Value = oCell.Value
    Next oCell
End Sub