[Solved] Copy cells and paste them in all those that are empty [closed]

by


While you should be posting code you need help with, I already have this code written. Just select your range and then run this macro.

 Sub Fill_from_above()

 For Each c In Selection.Cells  
     If c.Value = "" Then
         c.Value = c.Offset(-1, 0).Value  
     End If 
 Next c
 End Sub

1

solved Copy cells and paste them in all those that are empty [closed]