I’d like to check Column BD for rows with no data. When I find a row without data I would like to copy that same row of Column K and paste it into Column BD. The macro below works great with dates but not text which is the data I am working with. Can you assist me?
Dim Option1 As Range
Dim Option2 As Variant
For Each Option1 In Intersect(ActiveSheet.UsedRange, Columns("BD"))
If IsEmpty(Option1.Value) Then
For Each Option2 In Array("K")
If Not IsEmpty(Cells(Option1.Row, Option2).Value) Then
Option1.Value = Cells(Option1.Row, Option2).Value
Exit For
End If
Next Option2
End If
Next Option1
Bookmarks