See if this is how you wanted,
Sub test()
    Sheets("GeneralInformation").[b9].CurrentRegion.Offset(2).Clear
    With Sheets("input")
        Sheets("datadump").Cells(1).CurrentRegion.Offset(1) _
            .Columns(.[b2].Value & ":" & .[c2].Value).Copy _
            Destination:=Sheets("GeneralInformation").Range(.[b2].Value & 10)
    End With
End Sub