This is from the macro recorder.

With ActiveWindow
.Width = 274.5
.Height = 352.5
End With
ActiveWindow.NewWindow
With ActiveWindow
.Top = 118.75
.Left = 1.75
End With
Sheets("Sheet2").Select
ActiveWorkbook.Windows.Arrange ArrangeStyle:=xlHorizontal

First I resized the active window  with the mouse.
Then I opened a new window. Window/New Window
Next I resized that one.
Finally I set the windows  to horizontal tiling.