Greetings Bonnie,
I see you just joined! Welcome to vbaexpress . You will be glad you joined, as there's some great folks here.
As to your question, if there is nothing to the right of this block of data, maybe locate the last column with data, and set our range that way.
In a junk copy (lest I goober up your wb), try:
Option Explicit
Sub exa()
Dim rngLastCol As Range
With ThisWorkbook
With .Worksheets("Sheet1")
Set rngLastCol = RangeFound(Range(.Range("B2"), .Cells(Rows.Count, Columns.Count)), , , , , xlByColumns)
If rngLastCol Is Nothing Then Exit Sub
Range(.Range("B2"), .Cells(Rows.Count, rngLastCol.Column)).Copy
End With
.Worksheets("Sheet2").Range("B2").Insert xlToRight
End With
Application.CutCopyMode = False
End Sub
Function RangeFound(SearchRange As Range, _
Optional FindWhat As String = "*", _
Optional StartingAfter As Range, _
Optional LookAtTextOrFormula As XlFindLookIn = xlValues, _
Optional LookAtWholeOrPart As XlLookAt = xlPart, _
Optional SearchRowCol As XlSearchOrder = xlByRows, _
Optional SearchUpDn As XlSearchDirection = xlPrevious, _
Optional bMatchCase As Boolean = False) As Range
If StartingAfter Is Nothing Then
Set StartingAfter = SearchRange(1)
End If
Set RangeFound = SearchRange.Find(What:=FindWhat, _
After:=StartingAfter, _
LookIn:=LookAtTextOrFormula, _
LookAt:=LookAtWholeOrPart, _
SearchOrder:=SearchRowCol, _
SearchDirection:=SearchUpDn, _
MatchCase:=False)
End Function
Hope that helps,
Mark