Can some one tell me the what the error in this code

[Manan]

Sub test1()
'
' test1 Macro
'

'
  Dim strRng As Long
  strRng = Sheets("Sheet1").Range("H" & Rows.Count).End(xlUp).Row
  
  Sheets("Sheet2").Range("X5:X" & strRng).Copy Destination:=Sheets("Sheet7").Range("E5").PasteSpecial.xlPasteValues
  
End Sub

 

[Somendra Misra]

Hi Manan,

Try below code:

Sub test1()
'
Dim strRng As Long
  strRng = Sheets("Sheet1").Range("H" & Rows.Count).End(xlUp).Row
 
  Sheets("Sheet2").Range("X5:X" & strRng).Copy
  Sheets("Sheet7").Range("E5").PasteSpecial (xlPasteValues)
 
End Sub

Regards,

 

[Manan]

Hi Manan,

Try below code:

Sub test1()
'
Dim strRng As Long
  strRng = Sheets("Sheet1").Range("H" & Rows.Count).End(xlUp).Row
 
  Sheets("Sheet2").Range("X5:X" & strRng).Copy
  Sheets("Sheet7").Range("E5").PasteSpecial (xlPasteValues)
 
End Sub

Regards,

thanks buddy.

 

[Somendra Misra]

Welcome Manan.

Regards,