Copy From Line Below

Re: Copy From Line Below

Hello!

Theres a few things that need to be cleared out. If you have empty rows in your document, how many emty rows are there together (if its just one empty row at once, or if there can be several empty rows after each other).

I did a quick and dirty little script that can do this, but it assumes there can only be one empty row at once. If it finds two empty rows it will stop.

Option Explicit


Sub FillBlanks()


Dim i As Integer
Dim EmptyRows As Integer


i = 1
Do While Not EmptyRows > 2
  If Cells(i, 1).Value = Empty Then
    EmptyRows = EmptyRows + 1
    Rows(i + 1).Copy
    Cells(i, 1).Select
    ActiveSheet.Paste
  Else
    EmptyRows = 0
  End If
  i = i + 1
Loop


End Sub

Can probably be done better, but it works anyway as long as theres only one empty row between filled rows.