The results I want are somewhere between two results I'm able to achieve. My first attempt:

testPlot[] := ListPlot[{0, 1, 2, 3, 4, 5, 6, 7, 8, 9}]
Grid[{{"Label1", testPlot[], testPlot[]}, {"Label2", testPlot[], testPlot[]}}, Frame -> All]

I like the vertical spacing, but I'd prefer larger images, making use of the unused space on the right side of the window.

For my second attempt, I change an option:

testPlot[] :=  ListPlot[{0, 1, 2, 3, 4, 5, 6, 7, 8, 9}, ImageSize -> Full]

Now the horizontal spacing is exactly what I want, but there's major unused vertical space between plots. How can I reduce that vertical space? Thank you.