Hello!

Could someone help me in modifying the bellow code into a similar one?
There is something I must be doing wrong cause is not running properly... 


For i = 1 To LastArea
If Sheet20.Cells(3, 2 + 14 * i) = "" Then
Else
  With Sheet20
  .Range(.Cells(2, "B"), .Cells(6, "N")).Copy Destination:=.Range(.Cells(2, 2 + 14 * i), .Cells(6, 14 + 14 * i))
  .Range(.Cells(2, "B"), .Cells(6, "O")).EntireColumn.Copy
  .Range(.Cells(2, 2 + 14 * i), .Cells(6, 15 + 14 * i)).EntireColumn.PasteSpecial Paste:=xlPasteColumnWidths
  .Cells(3, 2 + 14 * i) = Sheet2.Cells(13 + i, "C").Value
  .Range(.Cells(6, 2 + 14 * i), .Cells(6, 3 + 14 * i)).ClearContents
  .Range(.Cells(6, 7 + 14 * i), .Cells(6, 13 + 14 * i)).ClearContents
  End With
End If
Next i

Thank you very much.

Kind regards,

pezal