How can I create a formula or button in Excel to automatically copy from a set point to the first reading of ISBLANK() =FALSE and then move the set point one below?

Answer 1

This code assumes you want to copy something in cell C2, then check each cell going down the column until you find a cell that is not blank. You then want to go to the cell just below the non blank cell and paste what you originally copied. The While loop checks for the ISBLANK=False essentially then we exit the While loop when contents are found, offset by 1 row and paste. Hopefully this helps.

Sub MoveDown()

Dim i As Integer

Dim j As Integer

i = 2

j = 3

Range("C" & i).Copy

While Range("C" & j) = ""

ActiveCell = Range("C" & j)

j = j + 1

Wend

If Range("C" & j) <> "" Then

Range("C" & j).Offset(1, 0).PasteSpecial (xlPasteValues)

End If

End Sub