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

 

[Dokat]

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.

Quite honestly i didn't even think of that as an issue until you brought it up that's why I didn't include it in the question.

ws.Columns("A:GK").Columns.Ungroup

I put a code to ungroup it but now i started getting runtime error again

Thanks

 

[Joe4]

Turn on your Macro Recorder, and record yourself ungrouping it manually.
Then stop your recorder, and look at the code you just recorded, and copy/paste the pertinent pasts of that into your code.

 

[Dokat]

Thanks

Turn on your Macro Recorder, and record yourself ungrouping it manually.
Then stop your recorder, and look at the code you just recorded, and copy/paste the pertinent pasts of that into your code.

Thanks