Simple task

[LeeLee17]

I would like to copy two cells from sheet 1 ("Today") into sheet2 "Notation" if column O (15) in sheet 1 is not blank. In other words, Sheets("Today").Cells(i,15) <> "" Then
Copy Column A (1) and column O (15) from sheet1 "Today" into sheet2 "Notation" in cells( i, A ) and cells (i, B). It will loop through an unknown number of rows in column O (15). Would really appreciate simple code to get this done. Appreciate your knowledge and time. Thank you!

 

[LeeLee17]

I've been thinking that if I change the DV criteria column to "A" then the rest of the row can be copied to the appropriate next tab.