Alternative vba code

[pezalmendra]

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

[AB33]

Why can not you use a normal cell-range?

If Sheet20.Cells(3, 2 + 14 * i) = "" Then

is row 3, column 16 times I, if I =1, you are looking at row3 column 16.
If you are trying to copy an entire column

Use

.Range("B:O").copy

Instead of

 .Range(.Cells(2, "B"), .Cells(6, "O")).EntireColumn.Copy

[AB33]

Why can not you use a normal cell-range?

If Sheet20.Cells(3, 2 + 14 * i) = "" Then

is row 3, column 16 times I, if I =1, you are looking at row3 column 16.
If you are trying to copy an entire column

Use

.columns("B:O").copy

Instead of

 .Range(.Cells(2, "B"), .Cells(6, "O")).EntireColumn.Copy

[pezalmendra]

OK! Thanks!

Regards