Copy and paste dont work...

[sal21]

Code: Select all

...
If Not K = UBound(strDBRows, 2) Then
            WSREPO.Range("A8:N8").Copy Destination:=WSTEMP.Range("A" & RIGA2 + 1)
            WSTEMP.Range("A" & RIGA2 + 1).RowHeight = WSTEMP.Range("A5").RowHeight
            RIGA2 = RIGA2 + 1
        End If
...

why the line WSREPO.Range("A8:N8").Copy dont copy the last cell (in grey N8 cell)!!!!

[HansV]

The workbook that you attached is empty. so I have no idea...

[Rudi]

Stripping all the variables out and using just the code below does work, and it pastes the last grey cell N8.

Code: Select all

Range("A8:N8").Copy Destination:=Range("A" & 10 + 1)
Range("A" & 10 + 1).RowHeight = Range("A5").RowHeight