a few alterations.

i = 7
j = 7
Sheets("Sheet6").Activat
Sheets("Sheet6").Range("C355:C706").Selec
Selection.Cop

Sheets("Sheet1").Selec

If IsEmpty(Sheets("Sheet41").Cells(18, i)) The

Cells(18, i).Selec

ActiveSheet.Past
Els

k = i +
Cells(18, k).Selec

ActiveSheet.Past
End I
For j = 18 To 47
If IsEmpty(a = Sheets("Sheet41").Cells(18, j)) Then
vlookedup_column = j -
If IsEmpty(a = Sheets("Sheet41").Cells(18, j)) Then
vlookup_column = j -

Set c = Sheet41.Cells(counter, vlookuped_column
Set d = Sheet41.Cells(counter, vlookup_column
If c < yes The
c.Cop
End I
Nex

'HTH