Hello,
I have two sheets. Phase I and Phase II. Phase I I have columns A-J. Im looking for a macro which would copy columns A-F and paste it to sheet Phase II A5 when value of column J on sheet Phase I is yes.
Sub Yes1() 'Copy from one sheet to another based on cell value Application.ScreenUpdating = False Dim i As Integer Dim lastRow As Long Dim LastroWB As Long lastRow = Cells(Rows.Count, "J").End(xlUp).Row + 1 LastroWB = Sheets("Phase II").Cells(Rows.Count, "A").End(xlUp).Row + 1 For i = 2 To lastRow If Cells(i, 10).Value = "YES" Then Range(Cells(i, 1), Cells(i, 6)).Copy Sheets("Phase II").Rows(LastroWB) LastroWB = LastroWB + 1 End If Next Application.CutCopyMode = False Application.ScreenUpdating = True End Sub