VBA Copy Range

Hi,
Could I please get assistance would like to update the range so that if the file is updated and goes paste 1321 the data is captured?

Here is my code so far:

Set wbPaste = ActiveWorkbook
    Set wbCopy = Workbooks.Open("\Phased.XLS")
    Set wsCopy = wbCopy.Worksheets("SS")
    Set rngCopy = wsCopy.Range("A5:HX1321")
     
    Set wsPaste = wbPaste.Worksheets("DataSheet")
    Set rngPaste = wsPaste.Range("a4")
    

Open in new window

jmac001Asked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
mvidasConnect With a Mentor Commented:
Just change the "set rngcopy" line as follows, should do the trick:
'    Set rngCopy = wsCopy.Range("A5:HX1321")
    Set rngCopy = Intersect(wsCopy.Range("A5:HX" & wsCopy.Rows.Count), wsCopy.UsedRange.EntireRow)

Open in new window

Matt
0
 
jmac001Author Commented:
Thank you Matt just what I was looking for.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.