Copy Entire Row and Paste as Special Value with VBA

[Dokat]

Hi,

I am trying to copy entire row 20 and paste as special value on same row.

I am using below code however receiving Run-time error '1004" error because paste function. Can anyone help me with the error?

Sub CopyPaste()

Application.ScreenUpdating = False

Dim wb As Workbook
Dim ws As Worksheet
Set wb = ActiveWorkbook
Set ws = Sheets("Summary by L5")
wb.Activate
ws.Select

ws.Rows(20).EntireRow.Copy
ws.Rows(20).PasteSpecial Paste:=xlPasteValues
Application.ScreenUpdating = True
End Sub

 

[Joe4]

Do you have any merged cells or protected cells anywhere in row 20?

 

[Dokat]

Do you have any merged cells or protected cells anywhere in row 20?

Yes I do have hidden cells. i'd like those values in hidden cells to be copy and paste as special value as well.

thanks

 

[Joe4]

Which do you have in row 20, merged cells or protected cells?

 

[Dokat]

Which do you have in row 20, merged cells or protected cells?

They are not protected or merged, just hidden columns. i guess they are grouped when i click on plus sign it unhides them.

 

[Joe4]

They are not protected or merged, just hidden columns. i guess they are grouped when i click on plus sign it unhides them.

Hidden columns won't prevent you from copying.
Are there any errors in row 20?

What is the name of the module where you have placed this VBA code?

 

[Dokat]

Its under General. No there are no errors in row 20.

When i ungroup/unhide the columns and ran the code it works.

 

[Joe4]

Ah, you didn't mention you were "grouping" rows!
Those kind of details can be important to your question!

 

[Dokat]

sorry not rows, grouping columns.

Thanks

 

[Joe4]

sorry not rows, grouping columns.

Thanks

Yes, when posting these sorts of questions, you want to be as descriptive as possible, including all details pertaining to the rows.
Remember, we cannot see your sheet. So we are dependent upon you to provide us with all the important details.