Copy first row if only first row of data available (from one workbook to another workbook)

[babychai]

Hi,

i have a workbook as a masterfile and want to open another workbook to copy the data and paste it to my masterfile.
here's the problem if my data only have the first row and the second row onwards is empty data. my current VBA code will copy the empty data and will cause the error when i paste the empty data into my masterfile.

what is the VBA code to copy only the first row if only the first row of data available? then copy the entire row if the data is more than 1 row. the data is only available from column A to column T.

My current code is below. Hope can assist to correct my code below. Also please check my Application.ScreenUpdating's code is it in the correct sequence?

Please Login or Register  to view this content.

[Arkadi]

Try replacing:

Please Login or Register  to view this content.

with:

Please Login or Register  to view this content.

I should point out that instead of Range.Select and then Selection.Copy, it is much easier to just use Range.Copy so it would be better to use

Please Login or Register  to view this content.

and then remove Selection.Copy

[karmapala]

what is the VBA code to copy only the first row if only the first row of data available?
then copy the entire row if the data is more than 1 row.
the data is only available from column A to column T.

Hi Babychai,

I think you might try like this :
Check if the row below cell A1 is empty or not, if empty, then just copy A1 to T1

Please Login or Register  to view this content.

I think we don't need the "ActiveCell" and select.

From the three lines of your code below :

Please Login or Register  to view this content.

Maybe you can try to change with this :

Please Login or Register  to view this content.

Or you can use the End(xlup) instead

[babychai]

Please Login or Register  to view this content.

Hi, just want to confirm the code above is "A1:T" or "A1:T1" ?

[Arkadi]

Range("A" & Rows.Count).End(xlUp).Row finds the last row... so "A1:T" & Range("A" & Rows.Count).End(xlUp).Row means A1:T20 if your last row of data is row 20... So yes, without the "1" after T

[babychai]

Hi Arkadi, oh i understood now. your code is work. thank you so much

[babychai]

Maybe you can try to change with this :

Please Login or Register  to view this content.

Or you can use the End(xlup) instead

Hi, i tested the code just now. the code is only work if the data is only available in first row.
there's an error if the data is more than first row whether i use End(xlup) or End(xlDown)

[Arkadi]

Thanks for the rep and feedback Once you are satisfied the problem is resolved, please remember to mark the thread as solved? Thanks!