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
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
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