Hi, I have this code that populates the next empty cell in a column (below). I use a row as a 'record' at the minute, but if I leave a field blank on one record, the next time I come to enter a row of data one of the cells pastes into the row above because the previous entry was blank.
Is there a way I could amend this so that it looks at column A for example, then pastes to the next empty cell to the right of the original entry etc.?
Does this make sense?
Thanks.
Code:
Sheets("order").Range("A22").copy
Sheets("data").Select
NextRow = Range("A65536").End(xlUp).Row + 1
Range("A" & NextRow).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
Does this make sense?
Thanks.