Hi, you can do it two ways
1) With a filter.
You can create a filter for "office No.1" for column A in sheet1 and copy + paste into the sheet2.
2) Run a macro (The following code has not been tested as I recommend the first method)
Code:Sub condCopy() Dim LR As Long, i As Long, count As Long LR = Sheet1.Range("A" & Sheet1.Rows.count).End(xlUp).Row count = 3 For i = 2 To LR If Sheet1.Range("A" & i).Value = "office No.1" Then Sheet1.Range("A" & i).EntireRow.Copy Sheet2.Range("A" & count) count = count + 1 End If Next i End Sub