VBA Copy and Paste HELP

[Dimitriy]

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

[j19_2002]

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.

[mumin_abdul]

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

[mdmackillop]

Avoid Select where possible

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

[Dimitriy]

Thanks, guys, for your help!

[mdmackillop]

Remember to mark your threads Solved using the Thread Tools dropdown.