Excel vba copy down over blank cells?

I would definitely advise against using string concatenation to build cell addresses, like you do here: Range(origincells(i) & ":" & Left(origincells(i), 1) & numrows) This is unnecessarily messy, hard to write, and hard to read. Use e.g. The Cells Resize and Offset methods instead.

I would definitely advise against using string concatenation to build cell addresses, like you do here: Range(origincells(i) & ":" & Left(origincells(i), 1) & numrows). This is unnecessarily messy, hard to write, and hard to read. Use e.g. The .

Cells, . Resize, and . Offset methods instead.

Also, I would avoid using . Copy since this will make your data transit via the system's clipboard. Other applications may read from and write to the clipboard at the same time, and this will result in wild and unpredictable behaviour.

Finally, instead of looping through cells, it is more efficient to load the entire range at once into a Variant array, do all your looping and manipulations there, and finally write the whole thing to your sheet at once. This is the approach I use below. This will do the trick: Dim varData As Variant Dim I As Long varData = Sheet1.

Range("A1:A14") '// Read in the data. For I = LBound(varData, 1) + 2 To UBound(varData, 1) If IsEmpty(varData(i, 1)) Then '// Cell is empty. Copy value from above.

VarData(i, 1) = varData(i - 1, 1) End If Next I '// Write result to sheet. Sheet1. Range("D1").

Resize(UBound(varData, 1) - LBound(varData, 1) + 1, 1) _ = varData.

I cant really gove you an answer,but what I can give you is a way to a solution, that is you have to find the anglde that you relate to or peaks your interest. A good paper is one that people get drawn into because it reaches them ln some way.As for me WW11 to me, I think of the holocaust and the effect it had on the survivors, their families and those who stood by and did nothing until it was too late.