jawaharprm
Member
Hi all,
I need to copy data from sheet VVV to Paste in Sheet UUU.
The last column in sheet UUU should refer "B" bcz only "B" column will have full data without any blank.
i have worked on this code but iam getting error mentioned in BOLD, enclosed sample file for your reference.
thanks
Jawahar
I need to copy data from sheet VVV to Paste in Sheet UUU.
The last column in sheet UUU should refer "B" bcz only "B" column will have full data without any blank.
i have worked on this code but iam getting error mentioned in BOLD, enclosed sample file for your reference.
Code:
Option Explicit
Sub con_us_can()
Dim lr1 As Long
Dim y As Workbook
With y.Sheets("UUU")
lr1 = .Range("B" & .Rows.Count).End(xlUp).Row
Sheet2.Activate
Sheets("VVV").Range("A1:P1").Copy Sheets("UUU").Range("A" & Rows.Count).End(xlUp).Offset(1)
End With
End Sub
thanks
Jawahar