Hey Everybody,
I am having a problem with copying and pasting the correct range. Please take a look at the attached file. When I run the code, VBA copies range A10:B29, instead of A10:B27, which is what's specified in the code. Can you please point out the problem.
Thanks,
Dimitriy
Sorry, I posted a possible solution but didn't work the 2nd time I ran it, Try Abdul's solution below. I'll keep seeing what the issue is.
Sheets(ActiveSheet.Range("B1").Value).Select
Range("A10:B10").End(xlDown).Resize(, -1).Select
Selection.Copy
Sheets("Main Table").Select
Range("A4").Select
ActiveSheet.Paste
Post Questions - Get Answers
Avoid Select where possible
[VBA]
Sub TEST()
Sheets(ActiveSheet.Range("B1").Value).Select
If Range("A28").End(xlUp).Row > 9 Then
Range("A10", Range("A28").End(xlUp)).Resize(, 5).Copy _
Sheets("Main Table").Range("A4")
'or
Range("A10", Range("A28").End(xlUp)).Resize(, 5).Copy _
Sheets("Main Table").Cells(Rows.Count, 1).End(xlUp).Offset(1)
End If
End Sub
[/VBA]
MVP (Excel 2008-2010)
Post a workbook with sample data and layout if you want a quicker solution.
To help indent your macros try Smart Indent
Please remember to mark threads 'Solved'
Thanks, guys, for your help!
Remember to mark your threads Solved using the Thread Tools dropdown.
MVP (Excel 2008-2010)
Post a workbook with sample data and layout if you want a quicker solution.
To help indent your macros try Smart Indent
Please remember to mark threads 'Solved'
Posting Permissions
Reply With Quote