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