```
Sub test_without_column_P()
Dim cell As Range
Dim firstlook As Range
Dim FSC As Integer 'FSC=First Search Column, column number in which to look for search string
Dim SSC As Integer 'SSC=Second Search Column, column number in which to look for criteria
Dim RC(4) As Integer 'RC(1)=Results Column 1, first column to paste a value to
Dim lastrow As Long, firstrow As Long
Dim look4 As String
Dim move(4) As String
Dim D(10) As Integer 'column numbers to combine for data copying
FSC = 48 'Column AV=48
SSC = 38 'Column AL=38
RC(1) = 38 'Column AL=38
RC(2) = 39 'Column AM=39
RC(3) = 40 'Column AN=40
RC(4) = 41 'Column AO=41
D(1) = 11 'Column K
D(2) = 12 'Column L
D(3) = 13 'Column M
D(4) = 14 'Column N
D(5) = 15 'Column O
D(6) = 17 'Column Q
D(7) = 18 'Column R
D(8) = 19 'Column S
D(9) = 20 'Column T
D(10) = 21 'Column U
look4 = "CALCA"
firstrow = 2 'assuming a header row in row 1
lastrow = Cells(Rows.Count, FSC).End(xlUp).Row 'finds the last row of data in the first search column
Set firstlook = Range(Cells(firstrow, FSC), Cells(lastrow, FSC))
For Each cell In firstlook
If cell.Value = look4 Then
If cell.Offset(0, SSC - FSC).Value = "" Then
For i = 1 To 7
move(1) = move(1) & Cells(cell.Row, D(i)).Value
Next i
For i = 2 To 4
move(i) = Cells(cell.Row, D(i + 6)).Value
Next i
For i = 1 To 4
Cells(cell.Row, RC(i)).Value = move(i)
move(i) = ""
Next i
End If
End If
Next cell
End Sub
```