Hi Id like to paste in three cells instead of just one into succeeding rows, ie N29 into Q8, N30 into Q9 ,N31 int Q10 with this at the PASTECELL Range= ("N29,N30,N31
If Range("K29") = Range("H6") Then
MsgBox ("Do yo want to do landing and under stairs")
PASTECELL = Range("N29")
DATA = Range("Q6:Q100")
CROW = 6
For Each LDATA In DATA
If PASTECELL = "" Then Exit Sub
If PASTECELL <> "" And Range("Q" & CROW) = "" Then
Range("Q" & CROW) = PASTECELL
Exit Sub
End If
If PASTECELL <> "" And Range("Q" & CROW) <> "" Then CROW = CROW + 1
Next LDATA
Thanks
Sue
If Range("K29") = Range("H6") Then
MsgBox ("Do yo want to do landing and under stairs")
PASTECELL = Range("N29")
DATA = Range("Q6:Q100")
CROW = 6
For Each LDATA In DATA
If PASTECELL = "" Then Exit Sub
If PASTECELL <> "" And Range("Q" & CROW) = "" Then
Range("Q" & CROW) = PASTECELL
Exit Sub
End If
If PASTECELL <> "" And Range("Q" & CROW) <> "" Then CROW = CROW + 1
Next LDATA
Thanks
Sue